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Preface 


The Atmos is the second micro produced by Oric Products 
International. It supercedes the very popular Oric—I and builds on 
the success of that machine. This book is aimed at all owners of the 
Atmos and also Oric users, who can either continue to use their 
computers as originally issued or can upgrade them to the standard 
of the new Atmos by purchasing a new ROM and keyboard add-on. 

The most rewarding aspect of owning a computer is to learn to 
program it yourself. This book assumes no prior knowledge of 
computing and therefore is suitable for the newcomer to BASIC. By 
the time you start to read it, however, you’ve probably already got to 
know how to use your Atmos so this book does not go into details 
about how to set up the machine initially. Similarly, although there 
is some discussion of special features of the keyboard in Chapter 
One, you are expected to try out the keyboard for yourself. 

This book is not intended exclusively for the beginner, however, 
and even if you already know some BASIC you may still find the 
early chapters useful. Lots of people have acquired their knowledge 
of BASIC in a piecemeal and haphazard way and although this 
usually serves them quite adequately at first, it makes it much more 
difficult to write well ordered, logical programs. So you may find 
you can pick up quite a lot of useful theory by reading quickly 
through Chapters Two and Three before moving on to the more 
machine-specific topics in the subsequent chapters. 

Chapter Four deals with the Atmos’s string and number handling, 
then Chapter Five iooks at the way you can use functions and 
subroutines in your programs. The next three chapters, about 
graphics and sound, are in some ways the heart of the book. Low 
resolution graphics are introduced in Chapter Six which also covers 
the Atmos’s colour system. Chapter Seven enables you to add sound 
and musical effects to your programs and Chapter Eight is devoted 
to high resolution graphics. Chapter Nine covers some advanced 
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topics which will increase the range of your programming skills, and 
Chapter Ten offers helpful advice to help you eliminate errors from 
your code. The final two chapters show how your Atmos can be 
combined with two attractive peripherals — its 3-inch disk drives and 
a printer/plotter — to become a powerful and versatile home 
computer system, capable of a wide range of serious applications. 

Our book takes a very different approach from that adopted by a 
manual. It does more than simply tell you what commands are there 
for you to use. Rather, it shows you how to use each command and 
discusses which command suits which situation. This means that as 
you gradually evolve your programming style you also gain a good 
understanding of how BASIC works. Throughout the book we aim 
to teach you to write well structured programs but you may be 
surprised by our relaxed and unrestrictive approach to this. In 
particular, you will find that, far from proscribing the GOTO, we 
actually advocate its use in writing unambiguous programs. This is 
neither laziness nor sloppiness on our part. Instead it is recognition 
of the fact that using GOTO is sometimes the best way of altering the 
flow of control. 

As you will already realise, we cover a lot of ground. However, it is 
not meant to be hard going ~ it is meant to be fun. More importantly, 
it is not meant as a reading book ~ it is meant as a ‘try-it-yourself’ 
book. There are lots of programs and program snippets included 
and they are all there for you to use. So stand by your Atmos and 
enjoy learning BASIC. 

Our thanks are due to Sue Moore and Richard Miles of Granada 
Publishing for their encouragement and help in the preparation of 
this book and to Oric Products International for the loan of 
equipment. 

S. M. Gee and Mike James 


Chapter One 


BASIC Programming with 
the Atmos 


This book covers two topics, how to program in BASIC and how to 
get the best out of your Atmos. The Atmos is a powerful and versatile 
computer available at a very reasonable price. Its excellent sound 
effects and colour graphics make it a good games machine while at 
the same time it has a good quality typewriter-style keyboard that 
makes it suitable for many serious applications. So, as well as 
providing hours of fun, the Atmos can be put to work in a wide 
variety of situations. If you add a pair of 3-inch disk drives and the 
corresponding plotter to your Atmos/ printer then you have a very 
capable system ready to undertake many useful tasks in the home, 
classroom and office. 

The Atmos runs a standard version of BASIC and this is a very 
good language to learn if you are new to computing. As well as being 
easy to learn BASIC has become almost the standard language for 
microcomputer use. In the early chapters of this book the emphasis 
is on understanding and writing programs in BASIC. This is what is 
usually referred to as ‘learning to program’. If you already know 
how to program in BASIC then you will still find these early 
chapters have something to offer because they give a clear and 
systematic approach to BASIC, showing the logical nature of the 
language. Far too many people learn to program in BASIC by 
picking up a little knowledge here and a little knowledge there 
without ever managing to see it all clearly as an integrated whole. 
Most attempts to explain how BASIC works, or should be used, rely 
on ideas that are more appropriate in other computer languages 
(such as Pascal). It’s as if you were learning English for the first time 
and the teacher insisted on showing you how similar it was to Latin! 
BASIC is BASIC and it is a lot easier to write good programs by 
going with its natural tendencies than by trying to make it into some- 
thing different. As well as explaining the whys and wherefores of the 
various BASIC commands, this book aims to show you how to 
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produce naturally well-structured programs as a matter of course. 

After you have mastered the elements of BASIC, and even if you 
become an expert, there still remains the problem of how to use what 
you know to achieve the results that you want. Most of the later 
chapters in this book are concerned with just this problem and look 
at how to go about producing programs that are really effective with 
your Atmos. 

The largest and most complex topic covered is the use of Atmos 
graphics in Chapters Six and Eight. Graphics seem easy when you 
read a description of the BASIC commands used to manipulate the 
screen and indeed, apart from a few details the commands are 
simple. However, it is not the graphics commands that cause the 
trouble, it’s seeing how they can be used together with the rest of 
BASIC to produce the effect you want. Chapter Seven is concerned 
with the sound capabilities of the Atmos and presents a games 
program in which sound and graphics are combined to good effect. 
Chapter Nine introduces the use of logical expressions and discusses 
some commands which give the programmer control over some of 
the inner workings of the Atmos. Hints about debugging programs 
are given in Chapter Ten, along with tips about how to make your 
programs more reliable. The final two chapters look at the two 
peripherals available to make your Atmos even more effective — its 
3-inch disk drives and its printer/ plotter. 

However, before moving on to BASIC, and the specific features 
of the Atmos, it is worth going over some of the ideas that are 
fundamental to all computers. 


What is a computer? 


This question is one that can be answered at many levels. Whole 
chapters, even whole books, can be devoted to the subject. In order 
to use your Atmos, however, you really don’t have to ask this question 

but if you do, the answer is interesting! If you want to know every 
detail of the way the Atmos works then there is no choice but to learn 
about electronics. However, it is not difficult to gain an 
understanding of what a computer does and roughly how it does it 
without knowing anything about electronics or chips. The point is 
that a computer is something that would exist even if electronics had 
never been invented. Indeed, the first computers were built using 
cogs and gears and it took one hundred years before a valve (an early 
electronic component) found its way into sucha machine. Although 


Basic Programming withthe Atmos 3 


in practical terms the computer seems to be a product of 
microprocessor technology, the idea that lies behind a computer 
doesn’t depend on the materials that you choose to build it from. 

Every computer is composed of a number of parts that each 
perform a well-identified function. Any computer has to have some 
way of communicating with the outside world. In the case of the Atmos 
this need is met by a keyboard, on which you type, and the TV 
screen, which the Atmos can use to show you what you have typed and 
anything else it needs to tell you. The keyboard is an example of an 
input device and the TV screen is an output device. 

A machine that could only receive information and pass it on 
unchanged wouldn’t really be worth calling a computer. Rather it 
might be classed as a telephone or a telex! Inside every computer 
there has to be some mechanism that can change or process 
information before it is printed out. This mechanism usually takes 
the form (these days at least) of complex electronics hidden inside 
the computer. What we are talking about is often referred to as the 
Central Processing Unit or CPU but it also has a traditional English 
name that betrays the fact that computers were once made of cogs 
and gears - the mill. 

In the Atmos the CPU is contained ina single chip known asa 6502. 
What exactly the 6502 does isn’t of too much importance from the 
point of view of programming in BASIC and the way that it does it 
certainly isn’t! In general, however, what the 6502 does is to perform 
arithmetic and other operations on information input from the 
keyboard and stored within the machine. What operations it does 
are controlled by a list of instructions called a program. This aspect 
of a computer is so important that you could almost say that a 
computer is a machine that will obey a list of instructions, but any 
sort of definition of a machine as complicated as a computer is 
dangerous! What sort of instructions the Atmos can obey will occupy 
the rest of this book, so for the moment the subject will be set aside. 

If a computer is going to obey a list of instructions concerning 
what to do with various pieces of information it must obviously have 
somewhere to store not only the information but also the list of 
instructions. This part of a computer is known as memory but the 
slightly less general term RAM (standing for Random Access 
Memory) is almost universally used instead. You can think of 
RAM as a sort of notepad where the CPU can record its list of 
instructions and any data that it needs. Obviously every memory has 
a limited capacity and this is an important measure of how powerful 
a computer is. The larger the memory, the larger the list of 
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instructions that can be stored. The most convenient unit of 
measurement to apply to computer memory is the byte. Roughly 
speaking a memory that can store one byte can store one character. 
(Here the term character means a letter, a digit or any punctuation 
that you might find in normal text — such as this book!) So a 4000 
byte memory could store enough characters to hold about | /, pages 
of this book. The only trouble with this convenient unit of 
measurement is that it is a little too small. Computers normally have 
memories that can store thousands of characters and so it makes 
good sense to think in terms of thousands of characters. The unit 
used for this is the kilobyte, which is often shortened to kbyte or even 
just K. For various reasons however, | kbyte isn’t 1000 bytes as its 
name suggests, but 1024 bytes. (You may notice that this strange 
number is the nearest power of two to 1000 and, as you might 
already know computers work in binary which is based on two 
states.) The Atmos has 48K of RAM. (Early computers that were 
used by the military to calculate missile trajectories, etc., often had 
less than 16K.) 

This book is an introduction to BASIC. BASIC is only one of a 
number of computer languages, but it is the one that the Atmos has 
installed in it when you buy it. It is contained in a pre-allocated part 
of the Atmos’s memory. As a computer user you cannot gain access to 
this part of the memory to change its contents and it is known as 
ROM (standing for Read Only Memory). The Atmos has 16K 
of ROM. 

This combination of I/O devices, CPU and memory is all that 
there is to a computer. The I/O communicates with the outside 
world, the CPU calculates and generally processes information and 
the memory holds the list of instructions that the machine obeys and 
the data that the CPU acts on. In practice, there is one addition that 
we must make to this list. When you switch your Atmos off it forgets 
everything stored in its RAM. To keep information stored 
accurately, most computer memories need a constant supply of 
electricity. If you switch off the supply the information is lost. This 
sort of memory is often known as volatile memory. This loss of 
memory is something of a problem because it implies that we have to 
type in the list of instructions every time that the Atmos has been 
switched off. To overcome this difficulty, most computers have a 
second form of memory that is non-volatile. In the case of the Atmos 
this takes the form of a standard cassette tape recorder that can be 
used to save programs and data ina form that exists even when the 
power has been switched off. A second advantage with this type of 
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memory is that it is removable. You can record a program ona 
cassette and then take it out of the recorder (and even send it to 
someone else). The Atmos is then ready for you to start on a new 
program or go back to an old one, which you can do by loading it 
from an earlier recorded tape. 


Special features of the Atmos 


Every computer system, from the largest to the smallest, is some 
combination of the elements mentioned above —- plus extras of 
course — so why are there so many different versions? This is rather 
like asking why there are so many different motor cars — the short 
answer is that different designers have different ideas. Lots of the 
apparent differences are really to do with styling. The choice of 
casing and keyboard are largely governed by cost considerations 
and what the machine will be used for. A home computer, for 
example, does not need to be built to withstand extremes of 
temperature or humidity. Similarly, different applications need 
different keyboards - a numeric keypad is a must for some data 
entry tasks but can be dispensed with for games playing. 

The choice of CPU chip might seem to be one obvious way in 
which micros differ from one another. At some levels there are real 
differences according to which chip has been selected, but as far as 
the BASIC programmer is concerned the choice of CPU matters 
hardly at all. Other features of the hardware are much more 
important. In the case of the Atmos the real bonuses are the colour 
graphics and the sound generator. The Atmos’s graphics are special 
because they use a method based on teletext graphics called serial 
attributes. This method reduces the amount of memory used to 
produce a colour screen display but it can be tricky to use if you are 
not aware of its limitations. The Atmos’s sound, however, presents a 
very wide range of sound effects and three musical tones can be used 
by the BASIC programmer to liven up any program. 


Programs and programming 


As mentioned earlier, a computer obeys a list of instructions stored 
in its memory. This list of instructions is known as a program and 
writing such lists of instructions is known as programming. It is 
often thought that programming is an activity that started with the 
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modern digital computers but people have been writing lists of 
instructions for other people to obey since writing was first invented. 
In this sense, programming is nothing new and can be seen in the 
form of recipes and knitting patterns in almost every home. Perhaps 
one of the best examples of traditional programming is written 
music. You can think of sheet music as being a program that will 
instruct a musician to play a specific tune. In fact written music is 
very like a computer program in that it relies on using a special 
language that is much more precise than ordinary language. Just one 
note out of place and you have a different tune! A computer 
program is written using a special and equally precise language. In 
the case of the Atmos this language is BASIC, the most popular 
programming language in the world. Just as with written music 
slight changes in a BASIC program can alter its meaning 
completely, so it is important to realise as you learn BASIC that you 
must pay attention to the fine details right from the very beginning. 
Unlike learning English, where you can first learn words and 
sentences and then add punctuation, you have to take notice of every 
comma in a line of BASIC for it to make any sense at all! 

If all this talk of strict rules is worrying you it is worth saying that 
the rules are usually very simple and very regular. Unlike English 
there are rarely any exceptions to spelling and punctuation rules in 
BASIC! In addition, there are some powerful underlying ideas 
behind BASIC. Once you have recognised these they make it easy to 
understand why the rules are there at all. As you progress through 
this book there are therefore two types of thing that you will learn - 
the fine detail concerning the exact form of each BASIC statement 
and the general features that all programming languages share. The 
fine detail is important to actually getting a program working but 
understanding the general details is what makes the act of 
programming a sensible occupation. 


A new acquaintance 


There are two problems with using any computer. The first is simply 
getting used to its idiosyncrasies. The second is writing working 
programs. If you have spent a little time becoming familiar with the 
Atmos’s keyboard and have loaded and saved short program examples 
then you might feel that you are perfectly at home with the machine 
and it is about time to move on to the more challenging task of 
programming. However, it is often the case that because a computer 


Basic Programming with the Atmos 7 


looks like a typewriter it is treated like one and, while this will get 
you somewhere, ignoring the computer’s special features, such as the 
editing keys, will make programming hard work. For this reason it is 
worth giving a brief resumé of the way that the Atmos is used. 

Getting to know a computer is a problem that exists even if you’re 
an expert. For although there is a lot in common between different 
computers, there are always enough little differences to mean that 
there has to be a period of adjustment when moving from one 
machine to the next. For example, nearly every computer uses a 
standard typewriter (or QWERTY) keyboard but most place extra 
but very important keys in slightly different places and this can make 
even the most experienced look silly at first! Now, if you’re an 
expert, then you know that this early phase soon passes, but if you’re 
a beginner you may panic and think that computing is always going 
to be this tricky! The trouble is that not being ‘at home’ with your 
computer can make easy programming ideas seem difficult. 

There is no way to avoid this early barrier to programming 
because being on friendly terms with your computer is simply a 
matter of time and a matter of using it. Youll come through this 
rather frustrating period more easily if you bear in mind the 
following advice: 


(1) Separate in your mind any difficulty that you encounter in using 
your Atmos from any difficulties that you have with programming. 

(2) Don’t immediately assume that any unexpected behaviour of a 
program means that your Atmos is illogical - computers are 
ruthlessly logical. 

(3) Try not to confuse typing errors with programming errors. 


To help you identify this initial difficulty and overcome it, this 
chapter includes a short program that you should try to get running 
on your Atmos before moving on to the rest of the book. It is presented 
as a complete and working program for you to use to make sure that 
you are over the non-programming problems of using the Atmos. At 
this stage you are not expected to be able to understand how it works 
but you might like to return to the example after studying later 
chapters to see how much more of it you understand. 


Using the Atmos and a test card 


The program given below draws a ‘test card’ pattern (see Fig. 1.1) on 
the TV screen. Apart from being an interesting example of Atmos 
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Fig. 1.7. Test card. 


graphics you might also find it helpful in adjusting the tuning if you 
are using a domestic TV set. Type in each line exactly as shown, if 
you make any mistakes then use the delete key to backspace and type 
in your correction. When you have typed a line correctly press the 
RETURN keytoletthe Atmos know that you want it added to the rest 
of the program. Pressing RETURN to signal that you have finished 
with what you are typing is a general principle. Before you press 
RETURN what you have typed belongs to you in the sense that you 
can use the DELete key to change it. After you press RETURN 
what you have typed belongs to the Atmos in the sense that you can no 
longer change it and the Atmos will examine and process it. 

It is important to realise that for some purposes (capital) upper- 
and lower-case characters are not interchangeable. The keyboard 
normally produces upper-case letters but you can change this by 
pressing CTRL and the T key at the same time. Pressing these two 
keys a second time restores upper-case. 

If you look at any line of the test card program you will see that it 
begins with a number - the /ine number. If you type something in 
without a line number then the Atmos will attempt to interpret what 
you have typed as an instruction to be obeyed at once - this is called 
immediate mode. For example, once you have typed in the test card 
program you can examine it by typing LIST (followed by 
RETURN). Without a line number, LIST is taken to be acommand 
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to be acted on immediately and that is just what the Atmos does ~ it 
lists the program. However, anything that starts with a line number 
is taken to be a command that is to be obeyed at some later time as 
part of a program - this is called deferred mode. As wellas enabling 
the Atmos to tell the difference between immediate and deferred 
commands, line numbers determine where a new line will be added 
to a program. The rule is that no matter what order you type the lines 
inthe Atmos will arrange them in order ofascending line number. So if 
you have already typed in lines 19 and 29, a line starting with 15 will 
be inserted in between them. Line numbers are also used to refer to 
existing lines in a program. For example, LIST 104-200 will list 
program lines with line numbers in the range 190 to 200. If you want 
to replace an existing line then simply type in your new version of the 
line using the existing line number. To delete a !ine simply type its 
line number followed by RETURN. To delete a bluck of lines you 
have no choice but to type in each line number in turn. If you want to 
delete an entire program type NEW. 

Once you have typed in all of the program LIST it and check it 
carefully. Then type RUN and you should see the test card pattern 
appear. RUN is animmediate command that tells the Atmos to begin 
obeying the lines of the program stored in its memory. To stop the 
program press CTRL and C at the same time. If you want to 
continue the program having stopped it in this way, type CONT or 
simply type RUN again. 


19 TEXT 

26 INK 7 

30 PAPER 9 

4@ HIRES 

5@ GOSUB 1999 

6% CURSET 120,96,3 
7 CIRCLE 58,1 

80 GOSUB 2090 

90 GOSUB 4690 

199 GOTO 19 


1999 FOR I=9 TO 239 STEP 12 
1919 CURSET 1,9,3 

1920 DRAW 9,192,1 

1930 NEXT I 

1049 FOR I=$ TO 199 STEP 12 
1959 CURSET 9,1,3 

1969 DRAW 239,9,1 
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1070 NEXT I 

1980 CURSET 239,0,3 
1999 DRAW 9,192,1 
1199 RETURN 


2000 AS="A T MOS” 
2919 X=190 

2020 Y=76 

2030 GOSUB 3999 
2040 AS=“T V” 
2050 X=112 

2069 Y=190 

2070 GOSUB 3999 
2080 RETURN 


3000 FOR I=1 TO LEN(AS) 

3019 CURSET X,Y,3 

3020 CHAR ASC(MIDS$(A3,I,1)),0,1 
3030 X=X+6 

3049 NEXT I 

3050 RETURN 


4000 F=127 

4010 Y=168 

4920 FOR X=48 TO 192 STEP 24 
4930 GOSUB 5009 

4949 NEXT X 

4050 F=1 

4960 Y=168 

4070 FOR X=36 TO 192 STEP 24 
4080 GOSUB 5009 

4990 F=F+1 

4199 NEXT X 

4119 RETURN 


5000 CURSET X,Y,3 
5019 FILL 13,2,F 
5920 RETURN 


At this point it is worth making sure that you know how to save 
and load a program on tape. To save the program at the slower and 
more reliable speed type, 


CSAVE “TEXT”,S 
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where the ‘S’ instructs the Atmos to select the slow rate. To make 
sure the program has been saved correctly use: 


CLOAD “TEXT”,V,S 


The ‘V’ stands for verify. If you get any error messages then save the 
program again. Finally, to load the program use: 


CLOAD “TEST”,S 


Although you may already be familiar with how to use the Atmos’s 
keyboard it is worth making the following observations. The Atmos’s 
editing facilities are very easy to understand and can be used for 
purposes other than simply correcting mistakes. The text cursor, the 
small flashing square, is used to mark the next screen position where a 
character will be displayed. If you press the cursor keys (the four 
arrow keys to the left and right of the space-bar) you will find that 
you can move the text cursor without typing anything else in. If you 
position the text cursor over something that is already onthe screen 
and press CTRL and A at the same time, the character under the 
cursor will be transferred into the Atmos just as if you had typed it on 
the keyboard. As the text cursor automatically moves on to the next 
character on the line, or even on to the next line if necessary, the auto 
repeat facility can be used to copy long strings of characters instead 
of retyping them. The rule is that as long as it’s on the screen you can 
copy it using CTRL and A. 
The command 


EDIT ‘num’ 


has the same effect as LIST ‘num’ (that is, it prints the line numbered 
‘num’ on the screen) but it positions the text cursor at the start of the 
line ready for editing. Thus the EDIT command saves having to 
move the cursor around the screen to the line that you want to edit. 
Instead it brings the line to the cursor! (In early versions of Atmos 
BASIC the EDIT command has a bug that misplaces the text cursor 
if the line is over 38 characters long — this is not serious, just 
irritating!) 

Using this idea you can add a new line to a program that is similar 
to one that is already included by first LIS Ting the existing line and 
then copying it, making whatever changes are necessary (including 
the line number). Unfortunately, this simple method appears 
complicated because you cannot see all you have entered until you 
have finished, when of course you can LIST itjust like any other line 
of BASIC. 
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Using the keyboard - a summary 


(1) Until you press the RETURN key the Atmos takes no notice of 
what you have typed and you can edit it using the DELete key. 


(2) After pressing the RETURN key the Atmos examines what you 
have typed and if it doesn’t start with a line number it obeys the 
command at once as animmediate instruction. If it does begin witha 
line number then it is added to whatever program is already in 
memory. 


(3) No matter what order the lines of a program are entered in, the 
Atmos rearranges them so that the line numbers are in strictly 
ascending order. 


(4) The following commands are usually entered in immediate 
mode: 


EDIT num Lists line ‘num’ leaving the cursor at the start 
of the line. 

LIST start-end Lists the program from ‘start’ to ‘end’. 

NEW Deletes all of the program. 

RUN Causes the Atmos to obey the instructions in 


the current program. 


(5) The Atmos’s keyboard contains a number of special keys as wellas 
the usual letters and digits that you would expect to see on a 
typewriter keyboard. In particular: 


DEL Deletes the last character typed. 

Cursor The four arrow keys will move the editing cursor 

keys to any position on the screen. 

RETURN Letsthe Atmos know that you have finished typing 
a line. 


(6) There are a number of occasions when it is necessary to press a 
key at the same time as the CTRL key. In particular: 


CTRL+A_ Enters character under text cursor just as if it had 
been typed on keyboard. 

CTRL+C_ Stops program or listing. 

CTRL+F _ Key press sound on or off. 

CTRL+L_ Clears the screen. 

CTRL+T Switches caps lock on or off. Once the caps lock is 
off, pressing SHIFT together with a key produces 
upper-case. 
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(7) The ESC key is also used in conjunction with other keys but as it 
is used to control the colour and other features of the way that 
characters are displayed it is explained in Chapter Six on low 
resolution graphics. 


As you go along 


As you learn BASIC and the special features of the Atmos from the 
rest of this book you are bound to improve, both in your use of the 
keyboard and your understanding of the editing features, until 
communicating with your Atmos becomes second nature. However, 
until then it is wise to recall the advice given earlier in this chapter 
and try not to let the frustration produced by typing errors interfere 
with your understanding of computing in general and BASIC in 
particular. 


Chapter Two 


Principles of BASIC 


As pointed out in Chapter One, a program is a list of instructions 
that your computer can carry out. The question that this poses is 
what sort of instructions can you use in a computer program? It is 
clear that instructions like ‘go and make a cup of tea’ are too vague 
for anything other than a human to cope with! Instructions used ina 
computer program must be precise. They have to specify exactly 
what must be done and, perhaps less obviously, they have to specify 
what it has to be done to. In other words a computer instruction tells 
the computer what to do and what to do it to. Inthis chapter we will 
look at the simplest objects in BASIC and some very simple things 
that you can do with them. 


Variables 


The idea of a variable is the most important single idea in 
programming. A variable is an area of computer memory that is 
used to store information. This sounds like an easy idea but it has 
one or two subtle points. If you are going to store information in an 
area of memory you are going to need some way of referring to it. 
You're going to have to give it a name! This is not such an unusual 
idea if you think about other, more traditional, ways of storing data. 
For example, each file in a filing cabinet is normally given a name 
that identifies it and it alone. Just think of the confusion of asking 
for a file if two files had the same name! It is just the same with 
BASIC; an area of memory that is used to store information, a 
variable, must be given a unique name that can be used to refer to it. 
The only additional difficulty with a BASIC variable is that you 
must also define what sort of objects you are going to store in the 
memory area. One reason for this (we will meet others later) is that 
the amount of memory set aside to store the information depends on 


Principles of BASIC 15 


its type. For the time being, the only sort of information that we will 
store in memory will be numbers of any type. A variable that is used 
to store a number is called a numeric variable or a simple variable. 

You cannot give a variable any name that takes your fancy 
because this would lead to confusion on the computer’s part. For 
example, suppose you gave the name ‘1’ to a variable. How would 
the Atmos know the difference between the variable | and the number 
1? Inthe case of the Atmos youcan giveasimple variablea name of any 
length as long as it starts with an upper-case letter and thereafter 
uses only upper-case letters and digits. You can also insert spaces 
anywhere in a name to make it more readable but the Atmos ignores 
them! In fact, it ignores everything after the first two letters of the 
name. There is another restriction on variable names that is more 
difficult to describe. If you use a variable name ‘LIST’ for example 
how is the Atmos to tell the difference between ‘LIST’, the variable, 
and LIST, the command to list a program? To avoid this confusion 
the Atmos will not allow you to use any name that includes one of its 
command words. The trouble is of course that you do not know all 
of the Atmos’s command wordsat this stage! In practiceall youcando 
is to look out for any variable names that the Atmos objects to by 
giving you an error message and change them to something else. 
Here are some examples of simple variable names that are allowed: 


SUM 

COUNTI, COUNT2 

Cl ecz 

DAY2 MTH3 YEAR83 


Notice that ‘COUNTI’ and ‘COUNT2’ are treated as the same 
names. To distinguish between two variables you need to use ‘Cl’ 
and ‘C2’. It is often difficult to think up names for variables that 
suggest the nature of the information to be stored in them but it is 
well worth doing. If you come back to read a program after a long 
time clear, obvious variable names can make it a lot easier to re- 
understand your own program! Even so you should try to avoid very 
long variable names - they can be very boring to type out over and 
over again in a program and there is the danger that you will 
inadvertently give two variables the same name by repeating the first 
two letters. Some examples of names that the Atmos would not allow 
are: 
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name reason for rejection 
IDAY starts with a number 
DATE* contains * which is not a letter or a digit 


ANSWER? ? is not a letter or a digit 
TOTAL TO is an Atmos command 
SCORE OR is an Atmos command 


Storing things in variables - LET 


Now that we know about variables and how to give them names it is 
time to discover how to store information in them. This can be done 
using the BASIC command LET. For example, 


19 LET SUM=56 


will store the number 56 in an area of memory called ‘SUM’. If you 
recall, lines of a program are entered with /ine numbers that control 
their order in the list of instructions that make up the program. 

This example is in fact our first program! If you enter it exactly as 
written nothing will happen until you type RUN when the Atmos will 
start obeying the list of commands. In this case there is only one 
command and this is very easy to obey — the number 56 is stored in 
an area of memory called ‘SUM’. If you think about it just a little 
more than this has happened. Before the program was run there was 
no area of memory called‘SUM’ tostore56in! Whenthe Atmoscomes 
across the name of a variable that you wish to use to store something 
in, it checks to see if it already exists and if it doesn’t it sets aside an 
area of memory of the right size and remembers its new name. So 
this innocent single line program has two effects — it creates the 
variable called ‘SUM’ and then it stores the number 56 in it. 

The LET statement is such acommon statement in BASIC that to 
save space and typing you can leave the word ‘LET’ out. So the line 
of the program could have equally well been written: 


1p SUM=56 


In future examples the word LET will be omitted from assignment 
statements! 


Finding out what’s in a variable - PRINT 


The one line example in the previous section is a little disappointing 
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because we have to take on trust that the Atmos has actually stored the 
number 56 in a variable called ‘SUM’. What we need is a command 
that will make the Atmos find the variable and print its contents onthe 
TV screen. The BASIC command with this effect is, most 
reasonably, called PRINT. If you add a new line, numbered line 20, 
to the previous example you will have the following two line 
program: 


19 SUM=56 
20 PRINT SUM 


If you RUN this program you will be pleased to find that the number 
56 is printed on your TV screen on the next free line. 

It is important that at this point you understand exactly what is 
happening as a result of this two line program. Later on, when you 
have absorbed BASIC almost as a second language, you will 
understand what is going on without even thinking about it, but for 
now it is all too easy to read this two line program and think you 
understand it because it sounds OK! So, to recap what we have 
already learned, the first line creates a variable called ‘SUM’ and 
stores 56 in it. The second line finds the area of memory with the 
name ‘SUM’ and prints what is stored in it on the screen. (Notice 
that it is easy for a beginner to think that PRINT SUM would print 
the word ‘SUM’ on the screen. So, if you already understand why 
this interpretation is incorrect you are no longer a beginner!) 

For the PRINT statement to work it has to be possible forthe Atmos 
to find the variable to which it refers. If for some reason you try to 
print a variable that hasn’t been created then the Atmos will obligingly 
create it for you and store zero in it! To see this, remove line 1 (by 
simply typing 19 and RETURN) and RUN the program again. 
Although the Atmos looks after you inthis way if you forget tocreatea 
variable, it is better not to fall into the habit of relying on it as other 
machines and other versions of BASIC are not so forgiving. 


Arithmetic 


Our programs are slowly becoming more interesting but they are 
still a long way from being useful. We can now store numbers in 
variables and print out what is stored in any variable but so what! To 
be of any use we have to be able to change what is stored in a variabie 
and print out something that we regard as an answer. The key to 
doing this lies in the idea of an arithmetic expression. An arithmetic 
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expression is nothing more than a piece of arithmetic that you 
haven’t yet worked out. For example, 3+6 is an arithmetic 
expression that works out, or evaluates to 9. You can write an 
arithmetic expression on the right hand side of the equals sign in an 
assignment statement with the effect that the Atmos will evaluate the 
expression and store the result in the variable. For example try: 


19 SUM=3+6 
2 PRINT SUM 


You will see 9 printed on the screen. As promised the Atmos has 
evaluated the expression and stored the result in ‘SUM’. 

As with most things to do with computers, there are rules 
governing what makes a correct expression. You can use the four 
operations that you should be familiar with from simple arithmetic. 
Addition and subtraction are indicated by the usual symbols, +, 
and, —, but multiplication and division use the symbols, *, and, /. 
The reason for using * to mean multiply, instead of a cross is that the 
traditional symbol is too easy to confuse with the letter ‘X’. Some 
examples cf correct arithmetic expressions are: 


expression evaluates to 
3+2 5 

3*2 6 

6/2 3 

3+2-4 l 

2.1+3.3 5.4 


Apart from the four usual operations of arithmetic there are two 
others that can be used on the Atmos —the wnary minus and the raise to 
a power. The unary minus sounds rather grand but it is simply the 
normal subtraction sign used in front of a single number. For 
example, the —’ in 3—2 is the normal subtraction sign, but the ‘“—’ 
used in —3 is the unary minus. Although the same sign is used in both 
cases as we will see later they are treated slightly differently. The 
raise to a power sign is ‘”’. For example, 2”2 is read as ‘two raised to 
the power of two’, i.e. two squared, or four. The raise to a power sign 
is not used very often and it is mentioned here more for completeness 
than for its importance. 


Understanding expressions - the order of evaluation 


Although the idea of an arithmetic expression seems straightforward, 
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there is a hidden complication. For example, if you write the 
innocent looking expression 3+2*4 does it mean ‘three plus two’ (i.e. 
five) ‘times four’, answer twenty, or does it mean ‘three plus’ the 
answer to ‘two times four’ (i.e. ‘three plus eight’), answer eleven. It 
may seem strange to you that there are two possible ways to work 
out this expression because you may feel that one of the two 
methods is obviously correct and the other is equally obviously 
incorrect. However, even in arithmetic, there are no absolute 
answers! The correct interpretation is a matter of convention and 
isn’t something that is handed down from high. The question of 
whether we do the ‘+’ or the ‘*’ first in an expression like 3+2*4 is 
settled by a general agreement that multiplication is more important 
than addition and so it should be done first, making the correct 
answer eleven. This agreement that multiplication is more 
important than addition can be formalised in terms of assigning 
priorities to each operation and carrying out the operation with the 
highest priority first. The assignment of priorities can be extended to 
every operation that can be used in an expression (even some that we 
haven’t met as yet ). The priorities that the Atmos uses to sort out the 
order in which arithmetic should be carried out are: 


operation priority 
Unary — 1 — highest 
A 

2 
* 3 
+,-— 4 — lowest 


To evaluate an expression you should always work out the operators 
with the highest priority first. If two operators in an expression have 
the same priority then you do the one furthest to the left first (i.e. in 
the absence of any other preference, you work from left to right). 

All this may seem a little over-complicated just to carry out a little 
arithmetic but it is necessary if you want to write unambiguous 
expressions. However there is another way of specifying the order of 
evaluation that can be used to override the usual priorities — brackets 
(). It is a longstanding convention that any parts of an expression 
enclosed in brackets are carried out first. For example, although 
3+2*4 is 11, (3+2)*4 is 20. If you’re ever in any doubt about how the 
Oric will evaluate an expression then put brackets around the parts 
that you want worked out first. Brackets sometimes waste time and 
effort but they can never cause trouble! 
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Variables and constants - the full expression 


So far we have looked at arithmetic expressions involving only 
numbers but there is no reason why we cannot use variables in 
expressions. If you write an expression such as ‘SUM+3’ the Atmos 
will find the variable called ‘SUM’ and retrieve the number stored in 
it. It will then add three to this number. For example, if ‘SUM’ had 
32 stored in it, the expression ‘SUM+3’ would evaluate to 35. Notice 
that there is no suggestion that what is stored in the variable ‘SUM’ 
is in any way altered. Its contents are simply used in the evaluation 
of an expression. A number such as 3 is known as a constant 
(because its value never changes!) and now we can see that an 
expression can be made up of variables and constants with the 
arithmetic operators, +,-—, /, *, “An expression always evaluates to 
a constant and it is this constant that is stored in a variable by an 
assignment statement. 


A short program 


Using all that we have found out so far about constants, variables 
and expressions we can now write a short program that adds two 
numbers together: 


19 N1=23.34 

20 N2=44,32 

30 ANSWER=NI+N2 
4 PRINT ANSWER 


If you enter and RUN this program you will see that the sum of the 
two numbers in lines 19 and 29 are printed by line 49. Although this 
is another simple example it demonstrates a wide variety of 
programming ideas. Lines 19 and 2@ store two constants in two 
variables. In line 30 the arithmetic expression ‘N1+N2’ is evaluated 
and the result is stored ina third variable‘ANSWER’. Line 49 prints 
the contents of ‘ANSWER’ on the screen. If you think this is easy so 
far so good! Try changing lines 1 and 29 to add different numbers 
together and change line 3@ to give you different arithmetic 
expressions. 


Principles of BASIC 21 


Another way of altering variables - INPUT 


In the previous example the two variables ‘N 1’ and ‘N2’ had numbers 
stored in them by use of the assignment statement. This is 
convenient unless we want to use the program many times with 
different values. As suggested, the only way that it is possible to 
change the values -stored in the variables is to edit each line before 
running the program. Obviously what we need is a statement that 
will allow us to enter any value into the variable while the program is 
running. This is what the BASIC statement INPUT is for. For 
example try the following program: 


19 NI=5 

20 INPUT N2 

30 ANSWER=NI+N2 
49 PRINT ANSWER 


When you run this you might be surprised to find that nothing much 
happens! Don’t panic! What has happened is that line 19 was carried 
out and 5 was stored in the variable‘N 1’. Then the Atmos moved onto 
line 20 where it obeyed the command INPUT by waiting for you to 
type a number and this is why the question mark was displayed. The 
Atmos is waiting for you to typea number and then press RETURN to 
signal that you have finished typing/ correcting the number. It then 
stores the number that you have typed in the variable ‘N2’ and 
proceeds to the next instruction. So if you haven’t already done so, 
run the program and type in a number of your choice. You will be 
pleased to see your number with five added to it printed in the usual 
place. 

We now have two ways of storing numbers in a variable — simple 
assignment and INPUT. It is important to understand the difference 
between the way these two methods work. As in the case of simple 
assignment, if a variable doesn’t exist before its use in an INPUT 
statement the Atmos will create it. Ifyoualways want tostorethesame 
value or the result of an expression in a variable then use an 
assignment statement. If you want to store a different value in a 
variable each time the program is run then use an INPUT statement. 


Variables and constants as expressions 


One of the most powerful features of BASIC is the way that almost 
anywhere that you can use a constant or a variable you can use an 


22 TheAtmos Programmer 


expression as well. For example, in the PRINT statement you can 
write: 


30 PRINT NI+N2 


and the Atmos will evaluate the expression and print the result. 

It is also true that the simplest forms of an expression are the 
constant and the variable. For example, the number 3 can be 
thought of as either a constant or an extremely simple expression. 
Similarly, the variable ‘SUM’ can also be thought of as an 
expression. So not only can you use an expression wherever you 
might use a variable or a constant, you can use a variable or a 
constant anywhere that you can use an expression! For example: 


LET NI=N2 
and 
PRINT 3 


are both valid BASIC statements. 


Describing BASIC 


It is difficult to describe any language and BASIC is no different. 
The trouble is that while it is easy to give an example of what is 
correct it is difficult to explain all the possible correct variations. For 
example, at the start of this chapter the LET statement was 
introduced by: 


LET SUM=56 

but this gave no hint that you could write things like: 
LET SUM=NUMBER 

or 
LET SUM=NI1+N2 


To try to overcome this difficulty it is usual to give a definition 
involving the general types of things that a statement allows. For 
example, the general form of the LET statement can be written as: 


LET ‘simple variable’ = ‘arithmetic expression’ 


where the things between the single quotes are not to be taken 
literally, but replaced by an example of the stated type. So ina real 
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LET statement ‘simple variable’ would be replaced by a variable 
name such as COUNT, SUM, NUMBER, etc. 

Throughout the rest of this book BASIC statements will be 
introduced by examples and then defined in the same way as the 
LET statement above. As we learn more about a statement it may 
prove necessary to redefine it to include a wider range of features. So 
far the two other BASIC statements that we have introduced, 
PRINT and INPUT, can be defined as follows: 


PRINT ‘arithmetic expression’ 
and 
INPUT ‘simple variable’ 


but as we shall see later these are not the final definitions! 


INPUT prompting 


Although we can now use INPUT to store information in variables, 
the way the Atmos just stops and waits for someone to type ina 
number is a little unsatisfactory. What is required is the ability to 
print a message on the screen saying something like “TYPE IN A 
NUMBER NOW” or “WHAT IS YOUR NUMBER?”. Such 
a message is often called an input prompt and BASIC provides 
two similar ways to print such messages. Try the following short 
program: 


19 PRINT “THIS IS A PROMPT” 
20 INPUT “WHAT IS YOUR NUMBER ?”;N1 


Line 19 will display “THIS IS A PROMPT” on the screen and line 
20 displays “WHAT IS YOUR NUMBER ?” just below it and then 
waits for you to type a number. In both cases the characters printed 
on the screen are the ones inside the double quotation marks. A set 
of characters in double quotes is known as a Jiteral string or simply 
as a string. Youcanuse either PRINT or INPUT to produce prompt 
messages on the screen depending on which is more convenient. As 
an example of the use of both, consider the following version of the 
number addition program given earlier: 


19 PRINT “WHAT IS YOUR FIRST NUMBER ”” 

20 INPUT NI 

30 INPUT “WHAT IS YOUR SECOND NUMBER ?”;N2 
4 PRINT NI+N2 
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Mixed PRINT 


The ability to print messages on the screen is clearly a very useful 
facility for other things than just printing prompts. For example, in 
the last program it would have been better to print a message saying 
that the number about to be printed was the sum of the two 
numbers. You can in fact use a single PRINT statement to print 
more than one thing at a time. For example, change line 4 in the 
previous program to: 


49 PRINT N1;“ + ”;N2;“ = ”;NI+N2 


and you will see that the contents of ‘N1’ are printed then a space and 
a plus sign followed by another space then the contents of ‘N2’ 
followed by an equals sign with a space on either side of it and the 
answer. You can consider this PRINT statement as a list of items to 
be printed with each item in the list being separated by a semicolon 
and printed in the next free printing position. Our general definition 
of PRINT can now be updated to read: 


PRINT ‘print list’ 


where ‘print list’ is a list of items separated by semicolons. The items 
can be either expressions or strings. Each PRINT statement starts 
printing on a newline. In Chapter Six we will return to the definition 
of the ‘print list? and expand it to include ways of formatting the 
information on the screen but this simple version of the ‘print list’ 
will satisfy all our requirements until then. 


Some sample programs 


Even with so little BASIC it is possible to write some useful, if 
simple, programs. For example, if you want regularly to work out 
how many dollars you could buy for a given number of pounds then 
a currency conversion program would be useful. The overall outline 
of this program is easy to explain as follows: 


ask the user for the conversion rate 
ask for the number of pounds to be used to buy dollars 
print number of pounds times conversion rate 


By now you should realise that this program is a simple one for your 
Atmos, so before you look at the version given below, try to write your 


own version. Remember to include input prompting and explanatory 
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messages. There is no one perfect way to write any program, so don’t 
worry if your version is different from the one given. It could well 
turn out to be better! 


19 PRINT “Pounds to Dollar conversion” 
20 INPUT “What is the conversion rate”;RATE 
39 INPUT “How many pounds do you want to 
spend ”;AMOUNT 
49 PRINT 
50 PRINT “For ”;AMOUNT;* pounds ” 
69 PRINT “you can buy ”;RATE*AMOUNT;* dollars” 


Line 19 simply prints a title for the program. Lines 20 and 3¢ 
prompt for and accept the necessary input. Notice how line 49 is 
used to print a blank line to space the output into an input and a 
result section. Lines 5@ and 6 print the answer with some 
explanation. 

As another example, consider the problem of calculating the 
stopping distance of a car travelling at any speed in miles per hour. 
The main problem in writing this program is knowing how to 
calculate the stopping distance. It is important to realise at this stage 
that no computer can calculate something unless you can explain to 
it how to do the calculation. Looking at the highway code reveals 
that the stopping distance is made up from two components - a 
thinking distance and a braking distance. The thinking distance in 
feet is roughly the same as the speed in mph. The braking distance is 
a little more complicated and is given by the square of the speed 
divided by 20. However both of these quantities are very easy for the 
Atmos to calculate, so to add to the usefulness of this short program it 
is reasonable to print out the thinking distance, the braking distance, 
the overall distance and how many car lengths it takes to come to a 
stop. This last calculation is based on the fact that the average (UK) 
car is 14 feet long. The program is now easy to write: 


19 PRINT “Stopping Distance” 

20 PRINT 

30 INPUT “Speed in mph=”;SPEED 

49 PRINT “at ”;SPEED;“mph” 

50 PRINT 

69 PRINT “Thinking distance=”;SPEED;“ feet” 

70 BRAKE DIST=SPEED*SPEED/20 

80 PRINT “Braking distance=”;BRAKE DIST;“ feet” 
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99 PRINT “Overall distance=”;SPEED+ BRAKE 
DIST;“ feet” 
100 PRINT 
119 PRINT “Which is ”;;SPEED+BRAKE DIST)/14;* car 
lengths” 


Line 1@ simply prints a title for the program and line 20 provides a 
line of space beneath it. Line 3$ prompts for the only information 
needed by this program - the speed in mph. This is stored in the 
variable ‘SPEED’. Lines 49 and 5@ start giving the answer to the 
user by printing the speed that the calculation is for and leaving 
some space. Line 69 prints the thinking distance, which requires no 
calculation as it is numerically the same as the speed in mph. The 
braking distance is calculated by line 7 and printed by line 80. The 
overall distance is calculated and printed by line 99. Notice that this 
is an example of using an expression in a PRINT statement. Line 
10 leaves another space before line 119 calculates and prints the 
overall stopping distance in terms of car lengths. Notice that you 
have to put brackets around the addition to make sure that it is 
carried out first. 

The final example in this chapter is a sizable and really useful 
program if you are interested in DIY. A very common problem is 
that of estimating how much sand, aggregate and cement you should 
buy to cast a slab of concrete. To help with this difficult task the 
following program is a “Concrete Calculator”. Once again our first 
problem is knowing how to do the calculation before we begin 
writing the program. Looking up the relevant information ina book 
on building reveals the following — | cubic metre of concrete made 
up from | part cement, x parts of sand and y parts of aggregate 
(i.e. a I:x:y mix) needs 


I 


0.025*(1+x+y) 
bags of cement and 
x*1.5 
(taaery) 
cubic metres of sand and 
PELs 
(1+x+y) 


cubic metres of aggregate. (It’s not too important to understand why 
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these equations work, it is often the case that a program is written 
from information that the programmer doesn’t fully understand — 
and why should it be otherwise!) Converting this information into a 
program is once again relatively easy. The first part of the program 
should ask for the dimensions of the concrete slab and then calculate 
its volume. The program should than ask for the mixture ratio and 
using the equations given above, work out the number of bags of 
cement and the volume of sand and aggregate required. Finally, the 
results should be printed out in a form that the user will find 
acceptable. The details of the program are: 


19 PRINT “Concrete Calculator” 

20 PRINT 

30 INPUT “What is the thickness in mm ?”,MMT 

49 INPUT “What is the length in m ?”;ML 

5@ INPUT “What is the width in m ?”;MW 

69 PRINT 

70 VOL=MMT*.901*ML*MW 

80 PRINT “Total volume = ”;VOL; “ cubic m” 

99 PRINT 

199 INPUT “How many parts of sand to one of 
cement ”";SPART 

119 INPUT “How many parts of aggregate to one of 
cement ”;AGGPART 

120 SUM=1+SPART+AGGPART 

136 CEMENT=VOL/SUM/@.925 

149 TS=VOL*SPART*1.5/SUM 

159 TAGG=VOL*AGGPART*1.5/SUM 

169 PRINT “Using a 1:”;SPART;“:">AGGPART;* mix” 

170 PRINT “you need ” 

189 PRINT CEMENT;“ bags of cement” 

199 PRINT TS;“ cubic m of sand” 

200 PRINT “and ”;TAGG; “ cubic m of aggregate” 


Lines 3@ to 80 ask for the dimensions of the slab and both calculate 
and print the total volume. Lines 19 and 110 ask for the ratio of the 
mix and line 120 calculates 1+x+y used in all of the following 
calculations. The most interesting lines of the whole program are 
13 to 200. The first few lines (130-159) carry out the main 
calculations and the last section (160-209) print the results. If you 
look carefully at the calculations you will see that an arithmetic 
expression in BASIC doesn’t always look like the equation that it 
comes from. For example, you might fall into the trap of writing, 
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I 


0.025*(l+xty) * 
(KONI ee) 


but the result of this BASIC arithmetic expression is given by 
dividing | by 0.025 and then multiplying the answer by (1+x+y) i.e. 
it works out: 


poles. * 

0.025 (htt) 
rather than the equation that we are interested in. The correct 
expression is: 


1/0.025/(1+x+y) 
or if you want to use extra brackets to clarify matters: 
1/(0.025*(1+x+y)) 


In the section that prints the results notice the way that each answer 
is embedded in the printed message. Remember that you do not have 
to write programs that produce results in a standard way — 
experiment with what looks good and seems natural. 

Before moving on to the next chapter you might like to find a 
calculation like the one carried out by the Concrete Calculator that 
is often used either in your home or at work, and write a program to 
automate it. Two suggestions are the cost of a telephone call, given 
the time and unit charge, and the amount of electricity consumed by 
a device, given its wattage and the time it is used for (1000 watts for | 
hour = | unit of electricity). 


Chapter Three 
Looping and Choice - the 
Flow of Control 


So far we have written programs that are lists of instructions which 
are carried out one at a time from the top to the bottom. Although it 
is possible to write useful programs using nothing more, 
programming really only becomes interesting when you can change 
the order in which instructions are carried out. 


The flow of control 


If you look at any of the example programs at the end of Chapter 
Two it should be possible for you to follow through with your finger 
the order that the instructions would be obeyed by the Atmos. Youcan 
think of this as tracing the flow of contro! through the program. 
Each instruction has its turn at governing or controlling what the 
Atmos is doing and it then passes contro/to the next instruction. Inthe 
absence of any other information the next instruction is taken to be 
the next line down the listing or, put another way, the line with the 
next highest line number. So the default flow of control is a line 
starting at the top of the program and finishing at the bottom. The 
following is a very simple program that demonstrates this default 
condition. 


19 INPUT A 
20 PRINT A 
30 INPUT B 
40 PRINT B 


Fig. 3.1. 
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Looping - the GOTO 


BASIC provides a single statement for changing the default flow of 
control — the GOTO statement. Try the following program: 


1p TEST=0 A Vv 
20 PRINT TEST ; 
39 GOTO 20 oe 


Fig. 3.2. 


If you run this program you will see the screen fill with zeros (one to 
each line). After this you may not be able to see the zeros being 
printed but they still are! The only way that you can stop the 
program, without losing it, is to press CTRL and C simultaneously. 

This program is our first example of a /oop. Tracing the flow of 
control through the program soon shows why the word /oop is 
appropriate. First line 1 stores zero in the variable ‘TEST’, then 
line 29 prints the contents of ‘TEST’. Line 39 is new in that it uses the 
command GOTO but its meaning should be clear from just reading 
it. The statement GOTO 29 causes the Atmos to obey line 2 as the 
next instruction. So after line 30 control is transferred to line 20 and 
the contents of variable ‘TEST’ are printed on the screen for a 
second time. After this line 39 is again carried out. This transfers 
control back to line 20 and so on ... The program calls for the 
repetition of lines 20 and 3@ forever and tracing the flow of control 
shows it to take the form of a loop. It is not a very useful loop, 
however, and because it has no predetermined stopping point it is 
usually called an infinite loop. 

A GOTO statement can be used to force the Atmos to carry out any 
instruction next. Its general form is: 


GOTO ‘line number’ 
For example: 
GOTO 26 


You may be wondering what happens if you write something like 
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GOTO 59 and line 50 doesn’t exist. In this case the Atmos will stop and 
give an error message “? UNDEF’°D STATEMENT ERROR IN X” 
(where X is the number of the line that contains the GOTO) 
indicating that you are trying to transfer control to a non-existent 
line. 


Iteration - doing it again 


Although the example of the infinite loop serves to introduce the 
idea of transferring control to a different point in the program, it 
doesn’t really indicate the sort of thing that a loop is used for. An 
important idea in programming is the repeating of series of 
operations. This is often called iteration. For example, the 
instruction NUM=NUM-+1 simply adds one to the contents of the 
variable ‘NUM’ and stores the answer back in ‘NUM’. In other 
words it increases the number stored in ‘NUM’ by one. If you repeat 
this operation by using a GOTO you have something more than 
adding one to a variable — you have a program that counts! Try the 
following: 


19 NUM=0 

20 NUM=NUM+1 
30 PRINT NUM 
4 GOTO 20 


you will see the screen fill with numbers without end. If you look 
carefully you should be able to see that the numbers are increasing 
by one each time — your program is counting. Notice that by adding 
a GOTO to an instruction that adds one to a variable we actually 
seem to produce a program that does a bit more than just count. In 
fact, we generate a sequence of numbers. This is much more the 
flavour of real programming than the one-after-the-other programs 
in Chapter Two. To see looping doing something a little more useful 
try: 


19 NUM=0 

20 PRINT “x =”;NUM;“ x squared =”;NUM*NUM 
30 NUM=NUM+1 

40 GOTO 20 


This program will print out two lists of numbers, the second being the 
square of the first. 
Even if you are very familiar with the idea of a loop you can be 
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confused about what the current value of a variable is at any point in 
the loop. For example, in the case of the counting loop program, the 
first value of ‘NUM’ that was printed was one but in the squares 
program the first value was zero. This difference is simply due to to 
where in the program the line that adds one to ‘NUM’ is placed and 
also what value ‘NUM’ is set to before the loop starts. If you change 
line 1M in the squares program to read 19 NUM=I then the first 
value to be printed will be one. 

Understanding what goes on ina loop gets easier with practice but 
it’s all a matter of following through the action of the program 
clearly and without rushing. Whenever you try to write or 
understand a loop, identify the start of the loop and its end, then you 
will be absolutely clear about which instructions are repeated. 


Getting out of a loop - the IF statement 


Although the GOTO is a very useful statement the only thing that 
you can do with it is to form infinite loops. This is fine for simple 
things like printing tables of values but is a bit too crude for many 
applications. What we are lacking is a statement that will stop the 
loop when a condition is satisfied. For example, suppose we want to 
write a program that will add ten numbers together and then print 
out the answer. At the moment the best that we can do is to read in 
each number in turn and add it to arunning total which we print out 
each time, as in the following example: 


1) SUM=0 

20 NUM=$ 

30 INPUT “Number = ”;NO 

49 SUM=SUM+NO 

50 NUM=NUM+1 

69 PRINT NUM;:* Total= ”;SUM 
70 GOTO 30 


If you run this program you will find that it produces rather a lot of 
output that you don’t need. What we really want to do is read in the 
ten numbers, keep a running sum and only print out the answer at 
the end. This can be achieved using the IF statement: 


1 SUM=0 
20 NUM=0 
30 INPUT “Number = “;NO 
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49 SUM=SUM+NO 

59 NUM=NUM+1 

69 IF NUM=19 THEN GOTO 86 
70 GOTO 36 

80 PRINT “Total = ”;SUM 


The only difference between this and the first program to add ten 
numbers together is the use of the IF statement in line 69. Each time 
through the loop formed by the lines from 39 to 79 the IF statement 
is obeyed. This takes the form of comparing the contents of the 
variable ‘NUM’ to 19. If it isn’t equal to 19, control passes to the 
next statement, i.e. line 70, and the GOTO following the THEN has 
no effect. However, if ‘NUM’ is equal to 1 the GOTO following the 
THEN is carried out and control passes to line 8 printing the 
answer and ending the loop. You should be able to see that there are 
now two paths through this program; the first is the loop which is 
taken if NUM is anything but 1@ and the second is the ‘jump out of 
the loop’ produced by the IF statement only when NUM is 19. The 
task of tracing the flow of control though this program is clearly 
made more difficult by there being more than one way through it but 
you can still trace each of the possible routes. 


IF conditions 


There are many ways of using the IF... THEN GOTO statement to 
alter the flow of control depending on whether or not a condition is 
true. Before we can go on to investigate the sort of thing that can be 
done with IF we have to find out what types of conditions we can 
use. 

All of the conditions that you can use in an IF statement take a 
very simple form: 


‘arithmetic expressionl’ ‘relation’ ‘arithmetic expression2’ 


We already know what an arithmetic expression is so the only new 
element is the relation. In BASIC there are six relations: 


relation meaning 


— equals 

> greater than 

< less than 
<= less than or equal to 
>= greater than or equal to 


<> not equal to 
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The meaning in BASIC of each of these relations is the same as their 
normal meaning. 

Conditions are very often called conditional expressions and a 
condition is like an expression in that it evaluates to a value but in its 
case there are only two possible results, true or false. It is important 
to read conditions in the right way to avoid confusion. For example, 
the condition ‘NUM=3' is not an instruction to make NUM equal to 
3, it is a question about what is stored in‘NUM”. If the value stored 
in ‘NUM’ is 3 then ‘NUM=3’ is true but if the value is anything other 
than 3 then ‘NUM=3’is false. Thus the Atmos uses the sign= in two 
different ways — as an instruction to store a value ina variable and as 
a relation in a condition. The only way to tell which is the correct 
meaning in any case is to look at the rest of the instruction. Some 
examples of conditions are: 


NUM<>4 false if NUM is 4, otherwise true 
NUM#*#2>10 _ true if NUM*2 is greater than 10, otherwise 


false 
3>1 ALWAYS true 
1>6 ALWAYS false 


To reinforce the idea that a condition is an expression that evaluates 
to one of two values (true or false) it is worth saying that the Atmos 
represents both values as numbers. True is represented by —1 and 
false is represented as 0. In other words, if a condition is true it 
evaluates to —1 and if it is false it evaluates to 0. To prove that this is 
the case try the following program: 


1) INPUT “First number”;A 

20 INPUT “Second number”;B 

30 PRINT “The result of ”;A;“>”;B;“ is ”;A>B 
40 GOTO 10 


You will find that either a —1 or a 0 will be printed depending on 
whether ‘A>B? is true or false in the case of the numbers you typed. 
You might be surprised that you can write a condition ina PRINT 
statement where you would normally write an arithmetic expression. 
This is simply another reflection of the fact that a condition is an 
expression just like an arithmetic expression and it can be used 
anywhere that an arithmetic expression can. Indeed, you can mix 
conditional and arithmetic expressions with no problems as long as 
you pay attention to the order in which they are evaluated. Any 
arithmetic is evaluated before any conditional expressions. For 
example: 
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PRINT (2<1)+(3>1)+(3=2+ 1) 


will print —2 on the screen because (2<1) is false and evaluates to 0, 
(3>1) is true and evaluates to —1 and (3=2+1) is also true and 
evaluates to —1, which gives 0-I-1 ie. —2. (Notice that the 
conditions all have to be enclosed in brackets to stop the Atmos trying 
to do the arithmetic first!) This sort of thing is fairly advanced 
BASIC so don’t worry if you don’t understand it fully —- what is 
important is that you understand that something like 2=3 is an 
expression and evaluates to true or false rather than an instruction 
to do some operation. 

We have taken a slight detour around the subject of the IF 
statement to examine the idea of a conditional expression but armed 
with this new information the remainder of this chapter should seem 
easier. The general form of the IF... THEN GOTO statement is: 


IF ‘conditional expression’ THEN GOTO ‘line number’ 


If the conditional expression evaluates to —1, or true, then the 
GOTO following the THEN is obeyed. If the conditional expression 
evaluates to 0, or false, then the statement following the IF is 
obeyed. 

There are so many ways of using the IF... THEN GOTO apart 
from breaking out of loops that it is difficult to give examples of 
everything. But if you understand the ideas of flow of control and 
the way that IF and GOTO can be used to change it then you should 
have no trouble in understanding the examples in the rest of this 
book. 


Using IF - skip and select 


The only way to find out how useful IF can be is to write your own 
programs that use it. In this way you'll slowly pick up all the 
standard ways that you can change the flow of control depending on 
the result of a conditional expression. However, giving examples of 
some of the most common ways that it is used may help to speed up 
this process and avoid clumsy use of the IF statement. The idea of 
using an IF statement to break out of a loop has already been 
introduced and this is so important that it deserves a number of 
sections all to itself! However, apart from its use in loops, the IF 
statement can be used to skip a section of program and select 
between a number of sections. For example: 
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19 INPUT A 

20 IF A>? THEN GOTO 49 
30 A=-A 

49 PRINT A 


This short program refuses to let you enter a negative number! The 
IF statement in line 24 checks to see if the number in ‘A’ is greater 
than zero and if so control passes to line 4 — effectively skipping line 
30. If ‘A>@’ is false line 3 changes the sign of the contents of ‘A’. In 
another program a different list of statements might be skipped 
according to some other condition. The shape of the skip is depicted 
in Fig. 3.3 which illustrates how the result of the condition decides 
whether or not the list of instructions is carried out or skipped. 


Fig. 3.3. 


An extension of the idea of skipping some lines of BASIC is to 
choose between two different lists of commands. In this case it is 
easier to understand the idea after looking at the shape of the flow of 
control (see Fig. 3.4). Which list is carried out depends on the 
condition used in the IF statement. It is useful to look at Fig. 3.4 


List List 
one two 


Fig. 3.4. 


Looping and Choice - the Flow of Control 37 


before looking at an example of an IF statement to select between 
two sets of instructions because it may be little difficult to see the 
simple division into two in the BASIC. Consider the following 
program: 


19 INPUT A 

20 IF A<@ THEN GOTO 66 
30 PRINT “A is positive” 

49 B=A 

50 GOTO 89 

69 PRINT “A is negative” 
70 B=-A 

80 PRINT A,B 


According to the value of ‘A’ either lines 30, 49 and 5@ are obeyed or 
lines 69 and 79 are. The division point in the diagram corresponds to 
the IF statement itself (line 20). The join up point is line 89 because 
this is the first statement that will be carried out no matter which of 
the two lists of instructions is selected. If you try to superimpose Fig. 
3.4 on the program you will see that, although it represents what 
happens, it is difficult to fit it. The reason for this is that it is 
impossible in BASIC to write the two alternative lists next to each 
other so the flow of control diagram is more like the one in Fig. 3.5. 


_—<-- 
List one 
Y 


y List two v 
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If you look at Fig. 3.5 you should be able to see that it is a ‘mangled’ 
form of Fig. 3.4. Using the IF to select between two alternatives is 
easier to understand from Fig. 3.4 but Fig. 3.5 corresponds more 
closely to reality. This is the most complicated flow of control 
diagram that you will find in BASIC and to make it slightly simpler 
Atmos BASIC includes a special form of the IF statement - IF... 
THEN...ELSE - which will choose between two alternatives. This is 
a simple statement but we need a few more ideas before it becomes 
useful to us so a discussion is left to the end of this chapter. 
There are many other ways of using the IF and GOTO statements 
to alter the flow of control in a program and there is no need for you 
to feel restricted to just the skip and the select. However, this is one 
area where it is not wise to be too adventurous because a program 
that changes the flow of control in a haphazard way will be very 
difficult to read and therefore likely to contain bugs that are hidden 
in the knots that you have tied in the flow of control! The rule is that 
in a well written program it should be easy to trace the flow of 
control and restricting yourself to only a small number of ways of 
transferring control is one way of keeping things simple. 


Using IF - conditional loops and REPEAT UNTIL 


We have already met the other important use of the IF statement, 


oo—g-- 
see Loop ff 
Vv <Spee aais 
-->-. 


Fig. 3.6. 
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that of breaking out of a loop. The flow of control diagram for that 
circumstance can be visualised as shown in Fig. 3.6. 

You should be able to see the familiar shape of an infinite loop. 
The path that leads out of the loop and back to the normal flow of 
control corresponds to a GOTO taken when the condition in the IF 
statement is true. A loop that ends when a particular condition is 
true is known as a conditional loop. Notice that the point at which 
the IF statement breaks out of the loop can be placed anywhere. In 
other words, you can break out of a loop anywhere from the first 
statement to the last. For example: 


Ip A=9 

20 A=A+1 

30 IF A=20 THEN GOTO 66 
4 PRINT A 

50 GOTO 2 

69 PRINT “Finished” 


has its exit point in the middle and 


1p A= 

20 A=A+1 

30 PRINT A 

4 IF A=20 THEN GOTO 69 
5@ GOTO 2 

69 PRINT “Finished” 


has its exit point at the end of the loop. 

In general, although it is possible to place the exit point of a loop 
anywhere, it is better to place it either right at the beginning or right 
at the end. The reason for this is that it is better to avoid carrying out 
part of a loop. Loops with an exit point either at the beginning or at 
the end always repeat all of their instructions the same number of 
times and this makes understanding programs very much easier. A 
loop with an exit point at the beginning may exit without ever 
obeying the instructions within the loop but a loop with an exit point 
at the end must execute the instructions within the loop at least once. 
This observation can be used to decide where you need to place the 
exit point in a conditional loop to produce the result that you desire. 
If you know what there are occasions where the loop should be 
skipped completely then place the exit point at the start, but if you 
always want to carry out the loop at least once then place the exit 
point at the end. 

Technically a loop with only one exit point placed at the 
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beginning is known as a while loop and a loop with ony one exit 
point at the end is known as an until loop. Some programming 
languages include extra statements to encourage the use of while or 
until loops as opposed to sloppy conditional loops with exit points 
placed anywhere. Most versions of BASIC are happy to leave the 
programmer to construct whatever conditional loops he or she 
needs, using the IF...THEN GOTO statement to break out, and 
hope that good programming style alone will encourage program- 
mers to be careful about where such statements are placed. 
However, Atmos BASIC does provide two extra statements to make 
loops with exit points at the end particularly easy to use- REPEAT 
and UNTIL. The statements REPEAT and UNTIL have to be used 
as a pair in that REPEAT is used to mark the start of a conditional 
loop and UNTIL marks its end. The statements that lie in between a 
REPEAT...UNTIL pair are obeyed repeatedly just as ina standard 
loop. The full form of UNTIL is: 


UNTIL ‘condition’ 


where ‘condition’ is a conditional expression as used in an IF 
statement and the loop will end when the ‘condition’ is true. The 
action of the REPEAT...UNTIL loop is accurately reflected in the 
English reading of: 


1? REPEAT 

20's a0 4 

30 list of other BASIC statements 
49... 
5@ UNTIL condition 


in that the ‘list of other BASIC statements’ is indeed repeated until 
the ‘condition’ is true. Notice that the REPEAT...UNTIL pair does 
not introduce anything new to BASIC. It simply provides another 
way of writing a conditional loop with an exit point at the end. For 
example: 


10 A=0 

20 A=A+1 

30 PRINT A 

40 IF A=20 THEN GOTO 69 
5@ GOTO 26 

60 PRINT “Finished” 
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can be written as 


19 A=0 

20 REPEAT 

30 A=A+1 

4) PRINT A 

50 UNTIL A=20 

60 PRINT “Finished” 


Using REPEAT to mark the start of the loop and UNTIL to break 
out. Although in this sense REPEAT ... UNTIL is redundant, it is 
nearly always to be preferred to using IF ... THEN GOTO to con- 
struct until loops. The reason for this is that if you look at a program 
and spot an IF statement you still have to work out what it is being used 
for — skip, select or conditional loop. However, if you see a 
REPEAT statement you know at once that you are dealing with a 
conditional loop and once you have located the matching UNTIL 
you also know the condition that makes the loop end. It should be 
obvious that a REPEAT...UNTIL loop should not contain an 
IF...THEN GOTO instruction that transfers control out of the 
loop! 


The FOR statement 


Apart from the position of the exit point, loops differ in two other 
ways. All loops continue until a condition is satisfied but in many 
cases this is equivalent to carrying out the loop a fixed number of 
times. For example, if you wanted to print the word “Hello” on the 
screen five times you could do it using: 


1 A=1 

20 REPEAT 

30 PRINT “Hello” 
4) A=A+1 

5@ UNTIL A>5 


Loops that cause a list of instructions to be repeated a given number 
of times are called enumeration loops - (enumeration means to 
count). However, this is such a common situation that BASIC 
provides two extra statements - FOR and NEXT - to make repeating 
lists of statements easier. Using FOR and NEXT the program that 
prints “Hello” on the screen five times can be written: 
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19 FOR A=1 TO 5 
20 PRINT “Hello” 
30 NEXT A 


The meaning of the FOR and NEXT should be clear from the 
program. The variable ‘A’ is used to count the number of times that 
the loop has been obeyed in the same way as in the earlier example. 
The difference is that everything is done automatically. The FOR 
statement first sets ‘A’ to one. Each time the NEXT statement is 
carried out one is added to ‘A’ and, as long as its value hasn’t 
exceeded 5, control is transferred back to line 26 (i.e. there is an 
implied GOTO 29). The result is that the PRINT statement at line 
2@ is executed five times before control passes on to the statement 
following the NEXT. 
The general form of the FOR...NEXT loop is: 


FOR ‘index variable’=‘start value’ TO ‘end value’ 


NEXT ‘index variable’ 
The ‘index variable’ is initially set to the ‘start value’. Each time 
NEXT is reached the ‘index variable’ is increased by one and as long 
as the value hasn’t exceeded the ‘end value’ control is transferred to 


the statement just after the FOR. To make sure that you understand 
exactly what a FOR loop can do try the following examples: 


19 FOR I=1 TO 19 
20 PRINT I 
30 NEXT I 


1) FOR Z=199 TO 110 
20 PRINT Z 
30 NEXT Z 


In general both the ‘start value’ and the ‘end value’ can be full 
of arithmetic expressions but it is important to realise that these are 
only evaluated once at the start of the loop. This becomes clear if you 
think of the FOR statement as only being carried out once at the 
start of the loop. If ‘start value’ is bigger than ‘end value’ when the 
FOR statement is first encountered the Atmos will still carry out the 
statements between the FOR and the NEXT once. For example: 


19 FOR I=19 to 5 
20 PRINT I 
30 NEXT I 
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will print 19 on the screen. In other words the FOR loop is another 
example of a loop with its exit point at the end! 

The value of the ‘index variable’ can be used in arithmetic 
expressions during the loop but its value must not be changed. In 
other words, you can use the ‘index variable’ ina FOR statement on 
the right hand side of an = sign but not on the left. For example, the 
following short program will print a multiplication table: 


19 INPUT “Which table — enter 2 for two times table etc”;T 
20 INPUT “Starting at ”;S 

30 INPUT “Ending at ”;E 

49 FOR I=S TOE 

56. PRINT I; x ";T;* = "1*T. 

60 NEXT I 


Notice that both the start and end values of the FOR loop are 
arithmetic expressions, simple variables in fact! Also note the use of 
the ‘index variable’ ‘I’ in line 5@. 


FOR, 1Os,STEP 


The simple FOR loop serves for most purposes, however, there is a 
slightly more advanced form that is occasionally useful and is 
certainly worth knowing about. In the simple FOR loop each time 
through the loop one was added to the value of the index variable. 
This is sensible if you are using the index variable to count the 
number of times that the loop has been carried out. However, it is 
sometimes the case that a calculation carried out inside the loop 
needs a value that changes by something other than one each time 
through the loop. This is catered for by the addition of the BASIC 
statement STEP, the general form of which is: 


‘index ‘start ‘end 


FOR pm TO value 


variable sahie’ » STEP ‘increment 


The ‘increment’ specified following STEP is the amount that is 
added to the index variable each time through the loop. So the simple 
FOR loop is equivalent to STEP 1. The only thing that you have to 
be careful of when using FOR...TO...STEP is making sure you 
know when the loop will come to an end. The rule is that the loop 
terminates when the value of the index exceeds the ‘finish’ value. So 
the value of an index variable in a FOR loop can never become 
larger than the ‘finish value’. To see this in action try the following 
examples: 
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1? FOR A=.4 TO 19 STEP 61 
20 PRINT A 
30 NEXT A 


and 


19 FOR A=1 TO 199 STEP 25 
20 PRINT A 
30 NEXT A 


The value of the increment following STEP can be negative, in 
which case it is better called a decrement. For example: 


1) FOR A=199 TO @ STEP —15 
26 PRINT A 
30 NEXT A 


You may have some slight difficulty in working out when this and 
similar loops end. However, the rule is almost the same for a positive 
increment. Each time through the loop the value of the index 
variable decreases by the increment and the loop ends when its value 
first drops below the ‘end’ value. 

As well as having a negative increment, it is possible for either the 
‘start’ or the ‘end’ value to be negative and this is where things can be 
confusing. Consider this short program: 


1? FOR A=-100 TO 50 STEP 1 
20 PRINT A 
30 NEXT A 


At first sight it may not seem to make sense. However, if you keep a 
cool head then you should be able to see that the same rules apply. 
The value of the increment is added to the index variable each time 
through the loop until its value exceeds the ‘end’ value, if the 
increment is positive, or is less than the ‘end’ value, if the increment is 
negative. 


Using the FOR loop 


There are one or two rules that govern the use of FOR loops. As you 
can use any valid BASIC statement within a FOR loop it is possible 
to use a GOTO or an IF to leave a FOR loop before it is finished. 
However this is to be avoided because your Atmos will eventually get 
round to giving you an error message if you do it too often! Do not 
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leave FOR loops until they are finished! This rule also makes very 
good sense from the point of view of the logic of BASIC. If you want 
to leave a FOR loop before it is finished then this is a sure sign that 
you should have used a conditional loop (constructed using 
IF... THEN GOTO or REPEAT...UNTIL) rather than an enumera- 
tion loop. You could sum up the situation by saying ‘never get an 
enumeration loop to do the work of a conditional loop and vice 


versa’! 
It is often the case that FOR loops are used in combination. This is 


easy to understand as long as you think logically about the way each 
loop works. For example: 


19 FOR A=1 TO 1 
20 FOR B=1 TO 19 
30 PRINT A,B 

4 NEXT B 

50 NEXT A 


is correct because the FOR loop formed by lines 20, 3 and 49 is 
completely contained within the FOR loop starting at line 1 and 
ending at line 50. This means that the inner loop is carried out each 
time through the outer loop. It is all too easy to make a slight 
mistake and end up with: 


1? FOR A=1 TO 19 
20 FOR B=1 TO 19 
30 PRINT A,B 

4 NEXT A 

5@ NEXT B 


which will give you an error message. 


IF...THEN and the colon 


There is an even more general version of the IF statement than the 
one we have examined so far. As well as being able to follow the 
THEN by the BASIC command GOTO, you can in fact use any 
valid BASIC command. For example: 


1? INPUT A 

20 IF A<@ THEN PRINT “A is negative” 
30 IF A=@ THEN PRINT “A is zero” 

49 IF A>@ THEN PRINT “A is positive” 
59 GOTO 19 
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The best way to think of this as a sort of easier version of the IF to 
skip an instruction. Only in this case the instruction is only carried 
out if the condition is true. There isn’t very much to add to this 
description except to emphasise the fact that you can follow THEN 
by any valid BASIC statement — including another IF! 

This extended version of the IF statement seems very useful at 
first but you quickly come to the conclusion that it’s not often that 
you want to execute a sing/e statement as a result of some condition. 
Clearly what is needed is some way of writing a list of BASIC 
statements following the THEN. Atmos BASIC does provide a way of 
doing this although it is important to realise that not all versions of 
BASIC do. You can group together a number of BASIC statements 
on a single line, separating each one with a colon and they will be 
obeyed in turn from left to right. For example: 


19 PRINT “First”: A=1:PRINT “second”;A 


will be carried out as a single line of BASIC working from left to 
right and is equivalent to: 


19 PRINT “First” 

20 A=1 

30 PRINT “Second”;A 

The use of colons to group a number of BASIC statements 

together effectively extends the rule for the default flow of control. 
Now instead of just obeying instructions in order of increasing line 
number (i.e. effectively moving down the screen) instructions that 
are grouped together on a line are obeyed from left to right. This is 
exactly the same way that a human would read a list of instructions 
from a sheet of paper (i.e. from left to right and then downwards). 
This ability to group instructions on a single line can be used to 
reduce the size of a program but if used too much results in it looking 
very dense and difficult to read. The best reason for grouping 
instructions together on a single line is that they actually have 
something to do with each other. For example if you are using two 
variables X and Y to keep track of the position of something on the 
screen, then it makes the program easier to read if, wherever 
possible, they appear on the same line. That is, instead of: 


1p X=0 
20 Y= 


use 


19 X=9:Y=$ 
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to show that X and Y are used together. However never crowd too 
many instructions together on a single line or it will make the 
program extremely difficult to read. Remember also that the Atmos 
limits you to a line length of 78 characters (just over two screen 
widths) and it’s always a good idea to leave some space to spare in 
case you want to add something extra. 

As mentioned earlier, the place where it is really useful to have the 
ability to put more than one BASIC instruction on to a line is 
following a THEN. For example, at the end of most games 
programs it is usual to ask if the player would like another game. In 
the following example of a routine that could be added to the end of 
a program the answer is expected in the form of 1, to mean yes, or 0, 
to mean no. Any other value as a response will be taken to be a 
mistake and a message to that effect will then be printed and the 
question asked again. 


119 INPUT “Do you want another game (Yes=1,No=9)”;A 

120 IF A=1 THEN GOTO xxx 

130 IF A<>@ THEN PRINT “You must answer | or 
0”:GOTO 119 

149 PRINT “Bye bye!!” 


Notice the use of the colon to group two BASIC statements together 
in line 130. The xxx in line 126 should of course be replaced by the 
line number of the start of the program. Being able to execute a 
group of BASIC statements following a THEN is very useful and it 
can make programs easier to write and easier to understand, but you 
will soon find that you cannot group very many statements together 
on one line before it becomes unreadable. There is another solution 
to this problem but for this we will have to wait until Chapter 
Five. 


IF... THEN. ..ELSE 


As mentioned earlier, there is another special version of the IF 
statement that can be used to select which of two statements is 
carried out —- the IF...THEN...ELSE statement. The general form 
of this is 


IF ‘condition’ THEN ‘list 1’ ELSE ‘list 2’ 


and its meaning is clear from the English meanings of the words 
THEN and ELSE. If the condition is true then ‘list 1’, a list of any 
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valid BASIC statements separated by colons, will be carried out. If 
the condition is false then ‘list 2’ will be carried out instead. For 
example: 


IF A>@ THEN PRINT “A is positive” ELSE PRINT “A is 
negative” 


will print the first message it A>=9 is true and the second message 
otherwise. You can use this form of the IF statement to replace the 
IF...THEN GOTO method of choosing which of two lists of 
instructions is to be obeyed. For instance the example involving 
reversing the sign of a number becomes 


19 INPUT A 

20 IF A>=@ THEN B=A:PRINT “A is positive” ELSE 
B=—A:PRINT “A is negative” 

30 PRINT A,B 


But if the lists of instructions are more than a few statements long the 
IF... THEN...ELSE statement becomes quite unreadable! If this is 
the case then the earlier method of using IF... THEN GOTOis to be 
preferred even though its flow of control is a little tricky to follow at 
times. There is a way around this problem but once again we will 
have to wait for Chapter Five to find out what it is! 


END and STOP 


There are two very simple BASIC statements that we have not 
discussed so far, that are very useful when used in conjunction with 
the IF statement. Suppose that as a result of some condition the 
program should stop, then currently the only way that we know of 
achieving this is to GOTO a line number that is at the end of the 
program. The BASIC statements END and STOP can be used 
anywhere in a program to return control to the user. For example: 


19 PRINT “Do you want to continue Y=1,N=0” 
20 INPUT A 

30 IF A=@ THEN STOP 

49 IF A<>1 THEN GOTO 16 

5@ PRINT “I continue master” 

69 GOTO 19 


Notice the use of STOP in line 3. Also notice how line 49 is used so 
that if a value other than | or @ is input the original question will be 
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repeated. If the user replies | then the program continues - in this 
case all it continues to do is to ask the same question until the user 
types # when it stops. The only difference between STOP and END 
is that STOP will report the line number at which the program 
halted, but END doesn’t. In general a finished program should use 
END, but STOP is very useful while testing a program (see 
Chapter Ten). 


A final example 


As a further example of both the IF and FOR statements consider 
the problem of turning the stopping distance program given in 
Chapter Two into a sort of quiz. For a range of speeds the player is 
asked for the thinking, braking and total stopping distance in feet. 


19 PRINT “Stopping Distance Quiz” 

20 MARK=0 

30 FOR S=19 TO 8@ STEP 10 

49 PRINT “What is the thinking distance at ”;S;“ mph?”; 
50 INPUT T 

69 IF T=S THEN MARK=MARK+1 

70 PRINT “What is the braking distance at ”;S;“ mph?”; 
80 INPUT B 

99 IF B=S*S/26 THEN MARK=MARK+1 

109 INPUT “What is the total stopping distance?”;D 

119 IF D=S*S/20+S THEN MARK=MARK+1 

120 NEXT S 

130 PRINT 

149 PRINT “You scored ”;MARK 

159 PRINT “out of a possible 24” 


The flow of control summarised 


The GOTO statement can be used to transfer control to any point in 
a program, but to make programs easier to understand and 
therefore easier to debug, it is essential to use GOTO in ways that 
lead to simple changes in the flow of control. Its main use is in 
conjunction with the IF statement to form loops. The exit point 
from a conditional loop should either be placed at the beginning or 
at the end of a loop. The Atmos provides the REPEAT ...UNTIL 
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statements to make conditional loops with exit points at the end 
particularly convenient. A second type of loop — the enumeration 
loop — can also be constructed using a special pair of instructions, 
FOR and NEXT. Apart from forming loops, the IF statement can 
also be used to skip sections of a program and to select between 
alternatives. 

It is difficult to say exactly what goes on in the mind of an 
experienced programmer. Whatever it is, it is a process that marks 
the difference between a beginner and anexpert. One thing that does 
seem certain is that, in addition to the catalogue of programs that 
have been seen before and a collection of handy tricks, the standard 
forms of the flow of control diagrams that we have been studying in 
this chapter are ever-present. It is worth mentioning at this point 
that is has been proved that you can write any program using only 
the default, select and conditional loop. This is so important that it is 
worth gathering together the flow of control diagrams so that you 
too can store them away in your personal memory. 


Default Skip Select 


Conditional loop 
Fig. 3.7. Flow of control diagrams. 


Chapter Four 
Handling Text and 
Numbers 


So far the only programs that we have written have used numbers. If 
this was all that computers could do they would be little different 
from pocket calculators! In this chapter we willlook at howthe Atmos 
can handle characters and text just as easily as digits and numbers. 
In the last part of the chapter some other ways of extending the 
things we can do with data are introduced ~ arrays and tape storage. 


Strings 


In Chapter Two the idea of a string - a collection of letters within 
double quotes — was introduced as a way of printing messages and 
prompts. In fact what we have been calling a string is really a string 
constant. The use of the word constant might alert you to the fact 
that there are such things as string variables. A string variable is 
similar to a simple variable in that it is anamed area of memory that 
can be used to store information. In this case, the information is a 
collection of characters instead of a number. The rules for naming 
string variables are the same as for simple variables except that a 
string variable must end in a $ sign. The dollar sign is used to 
distinguish between a simple variable and a string variable (e.g. ‘B’ is 
a simple variable but ‘B$ is a string variable and therefore different). 
The assignment statement can be used to store a string constant ina 
string variable and the PRINT statement can be used to print its 
contents. 


19 AS=“THIS IS A STRING” 
20 PRINT A$ 


In fact, a string variable can be used anywhere that a simple variable 
can, as long as it makes sense. For example, you can use INPUT A$ 
to store a string typed in from the keyboard while a program is 
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running but SUM=3+AS$ is obviously nonsense (you cannot add a 
string to a number!). Notice in particular the difference between: 


10 A$=“ 1? 
and 
20 A$=1 


Line 1@ is fine because the | is enclosed in double quotes and is 
therefore a string, but line 2 will give an error message, “?TYPE 
MISMATCH ERROR IN 26”, because A$ is a string variable and | 
is a number. 

The introduction of string variables is exciting because it opens up 
the possibility of the Atmos handling text and even dialogues. So far, 
however, the only sort of program that we can write is: 


19 INPUT “WHAT IS YOUR NAME ”;N$ 
20 PRINT “HELLO”;N$;“, 1AM YOUR ATMOS 
COMPUTER” 


which is all right for a start but it can result in unnatural dialogues 
like: 


WHAT IS YOUR NAME ? FRED BLOGGS 
HELLO FRED BLOGGS, 1AM YOUR ATMOS COMPUTER 


The trouble is that although we can INPUT, PRINT and store 
strings we have no way of changing them. This is rather like being 
able to INPUT, PRINT and store numbers but having no way of 
doing arithmetic — it’s obvious that this would limit the programs 
that we could write! The answer lies in inventing an ‘arithmetic’ for 
strings so that as well as having arithmetic expressions we can use 
string expressions. 


String expressions 


Before introducing the Atmos’s facilities for handling strings it is 
worth considering what sort of things you might like to do and then 
see if the Atmos can actually fit the bill. If a program had someone’s 
first name in F$ and their last name in L$ then it would be useful to 
be able to join them together to form one longer string. Such joining 
together of strings is known as concatenation. Another thing that 
would be useful is the ability to extract part of a string. For example, 
you could extract the last name from a string consisting of an initial 
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and surname, i.e. extract “BLOGGS” from “F.BLOGGS”. A string 
that is part of another string is often called a substring. For example, 
BLOGGS is a substring of F.BLOGGS. Another useful facility 
would be to replace a substring by another. For example, if we were 
trying to keep F.BLOGGS a secret we might want to replace the 
surname by asterisks giving “F.******”, Finally it would be a great 
advantage to be able to test for the presence of a particular substring 
in a string, for example, to see if the substring “BLOGGS” occurred 
in the name stored in N§$. To recap, the string operations that we 
would like to find are -— concatenation, substring extraction, 
substring replacement and substring searching. 

Our first requirement, string concatenation, is immediately 
satisifed by the Atmos’s concatenation sign, +. If A$ contains the 
string “ABCD” and B$ contains “EFGH” then after: 


C$=A$+B$ 


C$ contains “ABCDEFGH”. Notice that we now have two uses for 
the symbol +, as the sign for addition and as the sign for 
concatenation. You can use the + sign more than once in a string 
expression: 


C$=“MR "+FS+“ "1+1$ 


will join up the four strings involved and if F$ contains a first name 
“FRED” and L§ a last name “BLOGGS” then C$ will contain “Mr 
FRED BLOGGS”. Notice the use of a single space between the two 
strings to avoid the result being “MR FREDBLOGGS”! 

Extracting or changing a substring can be done by using a single 
new operation — MID$. If ‘s’ is a string of characters: 


MID§(s,m,n) 


is the substring consisting of ‘n’ letters starting with letter ‘m’. For 
example: 


PRINT MID$(“12345678”,3,4) 


will print “3456”, i.e. the substring consisting of four characters 
starting at the third character. The MID$ operation is easy to 
understand and use as long as you remember that the first number 
indicates where the substring should start and the second number 
indicates how many characters should be in the substring. 

You can use arithmetic expressions to specify ‘m’ and ‘n’, for 
example: 
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MIDS$(“ABDC”, FIRST,2) 
and 
MID$(““ABDC”,I,L+3) 


are both valid and ‘FIRST’, ‘I’ and ‘L+3’ are used in place of 
constants. However, by now you may have realised that one of the 
most powerful principles in BASIC is that anywhere you can use a 
constant ora variable you are also allowed to use an expression. You 
shouldn't be frightened to write complicated string expressions any 
more than you would be over complicated arithmetic expressions. 

You can’t really make a mistake using MID$. If you specify that 
the substring should be longer than the number of letters to the left 
of the starting position then you will just get as many letters as there 
are! For example MID$(“12345”,4, 10) is just “45”. If you leave ‘n’ 
out then the substring will consist of all the letters to the end of the 
string ‘s’. For example MID$(“12345”,4) is also “45”. The only errur 
that you can make is to specify a starting position less than |. For 
example MID$(“12345”,0,10) will give you the error message, 
“ILLEGAL QUANTITY ERROR”. However if you use a correct 
starting position and specify a length of zero you will not get an error 
but a substring with no characters in it! This is a very special string — 
the null string. The null string has no characters in it and plays a very 
similar role in string expressions to that of zero in arithmetic 
expressions. The string constant that corresponds to the null string 
is written “”, i.e. a pair of double quotes with nothing in between. 
Notice the difference between “” and “ ”. The first is the null string 
and has no characters in it, the second is a string consisting of one 
character — a blank or space. From the point of view of acomputer, a 
space is just as much a character as a letter or the alphabet, it takes 
up one position to print and it needs just as much computer memory 
to store! If you print a null string it has no effect whatsoever. The 
statements PRINT A;B and PRINT A;“”;B produce the same 
result. 

As an example of using MID$ consider the problem of printing 
the name of a month of the year given its number (i.e. you should 
print DEC for 12 and MAY for 5 etc.). Try the following short 
program: 

19 Y$=“JANFEBMARAPRMAYJUNJULAUGSEPOCT 
NOVDEC” 

20 INPUT “MONTH NUMBER ”;MN 

30 PRINT “MONTH ”;MN;“ IS ”;MID$(Y$, 1+3*(MN-1),3) 

49 GOTO 20 
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If you enter a number in the range | to 12 the program will print the 
correct abbreviation for the month in question. The way that it 
works is by extracting the three letter name from the long string Y$. 
The best way to understand the use of MID$ in line 36 is by working 
it out by hand for a few values of ‘MN’. If ‘MN’ is 4 then 
(1+3*(MN-1)) is 10 and the substring is given by MID$(Y$, 10,3) 
which gives the three letters “APR”. 

The MID$ operation will extract any substring from a string and 
in this sense it is all you need. However, there are two other ways of 
extracting substrings that have become common and _ indeed 
popular in BASIC - LEFT$ and RIGHT$. LEFT §(s,n) will extract 
the string with ‘n’ characters in it starting from the first character in 
‘s’. In other words the leftmost ‘n’ characters. You should be able to 
work out that LEFT§(s,n) is the same as MID§{(s, 1,n). RIGHTS(s,n) 
will extract the last or rightmost ‘n’ characters from the string ‘s’. 
You may think that this has no equivalent MID$ operation but once 
you know that the Atmos will ‘tell’ you the length ofastring on request 
the equivalent is obvious. If you write LEN(s) the Atmos will count the 
number of characters in a string. For example PRINT LEN(““ABCD”) 
will print 4 on the screen. Now you should be able to work out that 
RIGHT{&(s,n) is the same as MID§$(s, LEN(s)—n,n). 

There is no way of directly changing characters that are part of a 
string. In other word if S$ contains “AB3D” there is no way of 
directly altering the “3” to “C”. However, using MID$ you can take 
the string apart and insert the new letters. For example to replace the 
3 in S$ with C you could use: 


S$=MID&§(S$, 1,2) +“C”+ MID§$(S$,4, 1) 


The first MID$ extracts “AB” and the second the final “D”. Putting 
them all together gives “ABCD” as required. This is the only way 
that you can alter part of a string. 

The only thing left from our initial list of string handling 
requirements is testing to see if a particular substring is present in 
another string. The Atmos’s version of BASIC doesn’t provide a direct 
method of doing this but it does extend the use of conditional 
expressions (see Chapter Three) to strings and this can be used to 
achieve the same ends. 

You can use all of the relations that were introduced in Chapter 
Three with strings. The meaning of = and <> are easy enough to 
understand. Namely, two strings are equal if they are of the same 
length and contain the same characters in the same order otherwise 
they are not equal. However, what do the relations <, >, <= and 
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>= mean when applied to strings? The answer to this question 
varies from BASIC to BASIC. In the case of the Atmos, however, they 
are defined so that A$<B$ is true in the string in A$ would come 
before the string in B$ in an alphabetically ordered list of strings. 
The trouble is that we are all so familiar with alphabetically ordered 
lists that we tend to forget how they work! If the two strings being 
compared are single letters, then A$<B$ if the letter in A$ comes 
earlier in the alphabet than the letter in B$. For example, “A”<“B” is 
true but “D”’<“B” is false. What about comparing strings that 
contain single characters that are not necessarily letters, i.e. what do 
we make of “*”<‘“$”? In the case of the letters, the alphabet provided 
us with a ready-made order so what we need is to extend this order to 
include all the other symbols that the Atmos can use. In other words, 
we need a super alphabet! This is already available for the Atmos. If 
you look at Appendix D inthe Atmos Manual you will see a listing of 
the complete set of Atmos characters ina predefined order and it is this 
that is used as the super alphabet to decide if A$<B$. If you don’t 
have the Atmos Manual to hand, or if you are just interested, you can 
print all the characters in their proper order by using the following 
program: 


1? FOR I=32 TO 126 
20 PRINT “CHARACTER "1; = ”;CHRS(I) 
30 NEXT I 


Line 1 specifies 32 as the starting point as the characters before that 
are unprintable. Notice that character 32 itself is a space and actual 
characters start with 33. Don’t worry about the use of CHR$ in line 
2, this will be explained later. Coming back to the question of 
whether or not “*”<“$” is true or false, ““*” is character 42 and “$” is 
character 36 so “$” comes before “*” in the order and “*”<“$” is 
false. You can decide the truth or otherwise of any relation in the 
same way. 

If the two strings contain more than one character they are 
compared one character at a time until the first pair of different 
characters is found. The relationship between the two string is then 
decided on the basis of those two characters. For example, 
ABCD<AZCD is true because the first pair of letters that are 
different is Band Z and B<Z is true. If one of the strings is the same 
as the other apart from the addition of a few extra characters then 
the comparison is based on length, i.e. ABCD<ABCDEF, because 
there is no pair of letters that is different and ABCD is shorter than 
ABCDEF. 
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Now we can do everything that we wanted to with strings! 
However there are other string operations and these will be 
introduced in the next chapter. 


Another type of number - integers 


Atmos BASIC recognises two different types of number — rea/ and 
integer. The type of numeric constant and variable that we have been 
using so far are more properly called real constants and real 
variables. The difference between the two types of number is that a 
real number can have a fractional part but an integer cannot. So for 
example, 3.1 is real because it has a fractional part but 3 is an integer. 
You may be puzzled about the nature of the number 3.0. It has a 
fractional part but it is zero, so is it real or integer? The answer is that 
it is real, because the fact that .0 has been included can only be taken 
to imply that the number could havea fractional part but in this case 
it just happened to be zero. The idea that a real number is allowed to 
have a fractional part while an integer isn’t is perhaps easier to see 
when it comes to real and integer variables. An integer variable is 
distinguished from a real variable by ending in %. So NUM is areal 
variable and can store numbers with fractional parts but NUM% is 
an integer variable and can only store whole numbers. To see this 


try: 


19 NUM=12.345 
20 NUM%=12.345 
30 PRINT NUM,NUM% 


It is quite possible to ignore the existence of integers and treat all 
numbers as real. However there are certain advantages to be gained 
from using integer variables. In particular: 


Integers can take less memory to store. 
Arithmetic is faster with integers. 
Integers do not suffer from rounding errors. 


On the other hand, real variables are easier to use in that you don’t 
have to think about the type of number that is going to be stored ina 
real variable. Real numbers can also store numbers over a much 
greater range than integers. 

Whether you choose to take advantage of integer variables is up to 
you. In general unless speed or absolute accuracy is important you 
might as well use real variables. Indeed many dialects of BASIC and 
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more advanced languages make no distinction between integers and 
reals! There is another point of view that maintains that a real 
variable should only be used when it is absolutely necessary, because 
this forces the programmer to think very carefully about what any 
given variable will be used for. What seems to be important is that 
where a language gives you the choice of real and integer variables 
you should be able to recognise the distinction between them, and so 
be in a position to make up your own mind when to use one or the 
other! 


Arrays 


Strings and numbers are the only two types of data that the Atmoscan 
handle and this is quite sufficient for most purposes. However, the 
Atmos does provide a way of using the basic types of data ina more 
sophisticated way, the array. 

Consider the problem of reading in five numbers and printing 
them out on the screen in the reverse order. So far the only method 
that we could use is: 


19 INPUT A1,A2,A3,A4,A5 
20 PRINT A5,A4,A3,A2,A1 


which is not too bad for five numbers but think what the program 
would look like if the problem was to reverse 100 numbers! 

What we need to be able to do is to refer to a variable like ‘A(I)’ 
where I can take values from | to 5 in a FOR loop: Then we could 
write: 


20 FOR I=1 TO 5 

30 INPUT A(1) 

49 NEXT I 

5@ FOR I=5 TO | STEP -1 
69 PRINT A(1) 

70 NEXT I 


This is in fact exactly what BASIC allows you to do. The collection 
of variables A(1) to A(5) is called the array A and a particular 
variable A(I) is called an e/ement of the array (see Fig. 4.1). The only 
complication is that before you can use an array you must tell your 
Atmos how many elements the array is going to have. This is done 
using the DIMension statement: 
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19 DIM A(5) 


which should be added to the previous program to make it work! If 
you define a variable as having only five elements and then try to use 
A(6) you will get an error message for trying to use something that 
doesn’t exist! It is tempting to think that it is better to define arrays 
larger than you need to try to avoid such error messages but be 
warned, arrays can quickly use up all the memory that your machine 
has to offer! 


DIMA(10) 


| 2 3 4 5 6 7 8 9 10 


A(7) 
Fig. 4.1. A one-dimensional array with 10 elements. 


There are two slight complications that haven’t been mentioned 
so far. The first is that if you use DIM A(10) then the Atmos will 
actually create an array with 11 elements. Where you might ask is the 
extra element? The answer is that every array has a zeroth element. 
For example, DIM A(10) creates A(0) to A(10) i.e. eleven elements! 
The reason why this extra element has been ignored until now is that 
many versions of BASIC do not provide zeroth elements in arrays. If 
you fall into the habit of using elements like A(0) then your 
programs won't work on BASICs that do not provide A(0) but if you 
avoid using any zeroth element the only consequence is that you 
waste a tiny amount of memory needed to create A(0). For this 
reason the zeroth element of every array will be ignored! The second 
problem is that you can only dimension an array once in a program! 
If you first use DIM A(10) and then later use DIM A(20) or even 
DIM A(10) again you will get an error message - so keep DIM 
statements out of loops! 

In addition to being able to define arrays that can be thought of as 
rows of variables (see Fig. 4.1) you can define arrays that correspond 
to organising variables into tables made up of rows and columns (see 
Fig. 4.2). For example, 


DIM A(19,10) 


defines a collection of variables organised into 10 rows and 10 
columns. A particular element of this array can be referred to as 
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DIM A(10, 10) 


A(10, 5) 
Fig. 4.2. A two-dimensional array. 


A(I,J) where the two indices select the row and column. 

Although in theory the idea of a two-dimensional array can be 
extended to three- ,four- and n-dimensions, you will find that you 
run out of memory very rapidly if you go beyond two dimensions. 

You can form arrays from integers and string variables as well as 
real variables. For example DIM NUM%(10) is an integer array of 
10 elements. Integer arrays should be used in preference to real 
arrays wherever possible because they use up much less memory. 
String arrays are particularly important can be used to store and 
manipulate lists of words. For example, 


DIM S3(1) 


is a string array composed of 10 different strings. Each element of a 
string array behaves exactly like a standard string and can be used to 
store a variable number of characters. For example, the number 
reversing program can be used to reverse a list of words: 


1 DIM AS(5) 

20 FOR I=1 TO 5 

30 INPUT AS(I) 

49 NEXT I 

5@ FOR I=5 TO | STEP -1 
60 PRINT AS(1) 

7 NEXT I 
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You can use MID$, LEFTS, etc., and any other string operations on 
any element of a string array. 


A word game 


As an example of using string arrays consider the problem of writing 
a program to play the game of hangman. Because the computer 
cannot ‘think up’ a list of words for you to guess it is necessary to ask 
someone else to type in a list for you to guess. Once the list of words 
has been entered the player must try to guess each word in turn letter 
by letter. Each letter that is entered must be checked against each 
letter in the word. If it is present then the letter in the word must be 
replaced by a blank to make sure that the player cannot guess it a 
second time. When all the letters have been guessed the program 
moves on to the next word, or if there is none, comes to anend. After 
this description you should be able to make a good attempt at your 
own hangman program before looking at the one below: 

19 DIM W8(5) 

20 FOR I=1 TO 5 

30 INPUT “WORD = ”;W&(1) 

49 NEXT I 

50 FOR I=1 TO 5 

60 G=0 

70 T$=WS(1) 

89 G=G+1 

99 INPUT “GUESS=”;A$ 

1p F=9 

119 FOR J=1 TO LEN(W&(D)) 

120 IF LEFTS(A$, I< >MID$(WS(1),J,1) THEN GOTO 169 

130 PRINT “YES !—”;LEFT$(A$, 1) 

149 W$(I)=MIDS(WS(1), 1,J-1+* "+MID$(WS(1),J+1) 

159 A$=“” 

169 IF MID$(WS(D,J,1I)<>* ” THEN F=1 

170 NEXT J 

18) IF F=l1 THEN GOTO 86 

199 PRINT “YOU GOT IT IN ”;G;* !!” 

200 PRINT “THE WORD WAS ”;T$ 

219 NEXT I 

220 PRINT “GAME OVER” 


Line 1 defines the array W$ so that it can hold five words. Lines 2 


62 The Atmos Programmer 


to 4 are used to input the words. The FOR loop starting at line 50 
and ending at line 219 repeats the guessing part of the program five 
times, once for each word. The variable T$ is used in line 79 to store 
the word until the end of the game so that the array element can be 
modified by storing blanks in the place of letters that have been 
guessed. The guess is input in line 99. Each letter in the word is 
checked against the current guess by the FOR loop starting at line 
119 to line 170. The IF statement at line 129 is used to skip the lines 
that deal with what happens if a letter is guessed correctly. The 
variable ‘F’ is used to check that there are still letters left to be 
guessed. Variables suchas F that are used to record a result of part of 
the program for a later part to test are usually called flags. 

In this one program you can find examples of the FOR loop, the 
conditional loop and the IF skip as described in Chapter Three. See if 
you can find the lines that make up each one. 


Initialising variables - DATA and RESTORE 


It often happens that a standard set of values needs to be stored ina 
set of variables or an array for a program to work properly. For 
example, suppose we want to print the number of days in a given 
month we could set up an array of 12 elements and store the answer 
in each element — i.e. the number of days in Jan would be stored in 
the first element of the array, the number in Feb in the second and so 
on. This is a very simple and useful idea but how do you initialise 
each element of the array to the correct value? You could usea FOR 
loop and an INPUT statement to read in the answers or you could 
write 12 assignment statements. To make life slightly easier, BASIC 
provides the facility to store date within a program so that it can be 
transferred to any variables of your choice. The data is stored ina 
DATA statement that is composed simply of the word DATA 
followed by a list of values separated by commas. For example, the 
days in each month could be written as: 


19 DATA 31,28,31,30,31,30,31,31,30,31,30,31 


To transfer these data values into variables the READ statement is 
used. A READ statement is simply the word READ followed by a 
list of variables separated by commas. Each time a READ statement 
is encountered data values are transferred into variables in the 
variable list - one data value per variable. The best way to think of 
this is to imagine a pointer initially set to the first data value in the 
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DATA statement. Each time a READ statement transfers a data 
value into a variable, the pointer is moved on to the next data value. 
Whenever a READ statement is obeyed data is transferred, starting 
from whatever data value it has reached after previous READ 
statements. So the array holding the 12 data values in the example 
DATA statement given above can be produced using: 


20 DIM M(12) 

30 FOR I=1 TO 12 
4 READ M(1) 

5@ NEXT I 


You can have as many DATA statements in a program as you like, 
anywhere that you like, and they are treated as if all the data that 
they store was contained in one big DATA statement. So when the 
pointer moves past the end of a DATA statement it moves to the 
beginning of the next DATA statement. If there isn’t one, however, 
you'll get an error message. 

There is no restriction on the type of data that you can store ina 
DATA statement - i.e. you can use strings or numbers — but you 
must always be careful to READ data into variables of the same type 
— ie. strings into string variables and numbers into numeric 
variables. Strings in DATA statements do not have to have double 
quotes around them unless they include commas - otherwise it 
wouldn’t be possible to tell where one data item ended and another 
began. As an example of using strings in DATA statements consider 
the following: 


1? DATA JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG, 
SEP,OCT,NOV,DEC 

20 DIM MS(12) 

30 FOR I=1 TO 12 

4) READ MS(I) 

5@ NEXT I 


and compare it to the example given earlier. 

Sometimes, especially in games, it would make things easier if we 
could re-read the data. This can be done using the RESTORE 
command. Following RESTORE that pointer is back at the 
beginning of the first DATA statement in the program. For example 
try: 


19 DATA 1,2,3,4 
20 READ, A,B,C,D 
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30 PRINT A,B,C,D 
4 RESTORE 
50 GOTO 26 


which will read the same four numbers over and over again. 


Saving data on tape 


We have already seen that it is possible to save and load programs 
from tape. It would seem to be logical to extend the facility to 
include storing and retrieving data held in variables to and from 
tape. In fact the Atmos only allows storing and retrieving of arrays 
but this is no disadvantage as any simple variable that you might 
want to save can be first transferred to free array elements and then 
saved along with the entire array. All you have to do to save an array 
on tape is to proceed exactly as you would for saving a program but 
use 


STORE ‘array name’,‘filename’ 


where ‘filename’ is a string constant or variable which is the name of 
the file of data and ‘array name’ is the name of the array, numeric, 
integer or string, to be saved. You can follow this command by an‘S’ 
if you want to save the array at the slower data rate. Similarly, to 
load a previously saved array use: 


RECALL ‘array name’,‘filename’ 


This will search the tape until a previously saved array is found with 
the correct file name. Any existing arrays with the same name are 
deleted and the saved version of the array is read in. Notice that both 
STORE and RECALL can be used from within a program. You can 
also follow the RECALL command by ‘S’ to load an array 
previously saved at the slower data rate. Youcan STORE any type 
of array, real, integer or string, but when you read it back using 
RECALL you must make sure that it is read into an array of the 
same type and either dimensioned to the same size or larger. As an 
example of saving and loading data try: 
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19 DIM A(19) 

20 FOR II to 10 

30 LET A(1)=I 

49 NEXT I 

50 PRINT “press any key when ready to record.” 
60 GET A$ 

76 STORE A,“TEST” 

80 PRINT “rewind tape and press play” 

90 RECALL A,“TEST” 

100 PRINT “data loaded OK” 


Apart from remembering to press the correct controls on the tape 
recorder, it’s as easy as that. 


Chapter Five 


Functions and 
Subroutines 


At this point in learning BASIC you should be in a position to see 
that the expression is the main way that programs change data. 
Without expressions ~ arithmetic, conditional and string - BASIC 
would be reduced to moving values from one place to another. It is 
only by the use of expressions that values can be combined and 
compared to produce new results. To make expressions even more 
useful, BASIC provides a large range of operations that can be used 
to make expressions, in the form of functions. You can also extend 
the range of functions by creating your own, user-defined functions. 
This creation of new operations can be taken one stage further in 
BASIC by using the GOSUB and RETURN statements to group 
statements together into functional units or subroutines. 

In the first part of this chapter we look at the general idea of a 
function and then move on to examine some of the more common 
functions available to the Atmos programmer. The sections that deal 
with particular functions can be read very quickly or even skipped 
until you need to use them or until they are used in an example. 
However, don’t skip the section on special functions because these 
are particularly important. 


The idea of a function 


Before dealing with the way the Atmos handles functions, it is worth 
looking at functions in general. You may already be familiar with 
the idea of a function from mathematics. For example, sin(x) is a 
function. However, the idea of a function isn’t really anything to do 
with advanced mathematics. At its most simple, a function is an 
operation on data that produces a single value as its result. For 
example, finding the larger of two numbers is an operation on data 
that returns a single value — the maximum of 3 and 42 is 42, the 
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maximum of 2 and 2 is 2 — and maximum is therefore a function. 

The Atmos doesn’t havea maximum function but it is neverthelessa 
useful one to consider as an example because it is easy to 
understand. 

The standard way of writing a function involves writing its name 
to the left of the values on which it is to operate that are enclosed in 
brackets. In the case of finding the maximum of two numbers a 
sensible name for this function is ‘max’ and so the previous two 
examples can be written: 

max (3,42) 
and 
max(2,—2) 


Following the usual BASIC convention that anywhere that you can 
use a constant or a variable you can use an expression, the following 


is also allowed: 
max(count+3,total* 20) 


The data values that follow the name of the function are called 
parameters. It is possible for functions to have any number of 
parameters but the functions supplied on the Atmos use one, two or at 
most three parameters. 

Functions can be used in expressions just as if they were variables 
or constants. For example, 


RESULT=max(3.3,4.2) 


would evaluate our function ‘max’ and store the answer (4.2) in 
‘RESULT’. (Remember that the Oric doesn’t have a ‘max’ function 
so don’t try this example.) You can nowsee why the condition that a 
‘RESULT’. (Remember that the Atmos doesn’t have a ‘max’ function 
gave more than one result, which one would be stored in the variable 
‘RESULT or which one would be used to evaluate the rest of the 
expression? As we want to use functions in expressions they can only 
return one answer. Sometimes it is possible to change something 
that isn’t a function into a function by simply choosing one of the 
possible answers. For example, the Atmos has a function SQR which 
gives the square root of anumber. Nowif you ask for the square root 
of four the answer is obviously two i.e. two times two is four, but it is 
all too easy to forget that minus two is also the square root of four. A 
minus times a minus is a positive and so —2*—2 is 4 (not —4). The 
objection that the square root operation isn’t a function can be 
avoided by simply deciding that SQR will be a function that returns 
the positive square root of a number. 
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The Atmos'’s functions 


The Atmos hasa very wide range of functions and some of themareso 
specialised that it is better to deal with them in detail in other 
chapters. However, there is a central core of functions that you 
would expect to find in any BASIC and these will be explained in 
this chapter. A full list, with brief explanations, of all the Atmos’s 
functions can be found in its manual. 

The core functions can be divided into three groups: the 
arithmetic functions such as SQR and ABS; the trigonometrical 
functions such as SIN and COS; and the string functions such as 
LEN and CHRS$. In addition there are a number of unclassifiable 
but very important one-off functions such as RND. The most 
important thing is to have some idea of what functions are available, 
so a brief reading of the description of each function listed below is 
recommended. However, it is difficult to appreciate, let alone 
remember, the subtler details of the use of a function until you 
actually need to use it! If you want to see the effect of any of the 
functions use the following program: 


1? INPUT X 
20 PRINT SIN(X) 
30 GOTO 19 


but change the PRINT SIN(X) to the function that you are 
interested in. 


Arithmetic functions 


ABS - ABSolute value of a number 
The absolute value of a number is obtained by ignoring its sign and 
treating it as positive, i.e. ABS(—2) is 2 and ABS(2) is 2. 


EXP - EXPonential function 
EXP(X) raises ‘e’, the exponential number, which has the value 
2.718281, to the power of ‘x’. That is, EXP(X) is the same as e’. 
It is difficult to explain why this function is so important but it 
crops up in just about every area of mathematics, (see also the 
function LOG). When using EXP it is well worth being aware of the 
fact that EXP(X) gets very big for even small values of ‘X’. The 
largest integer that EXP(X) can accommodate on the Atmos is 88. 
Larger numbers will cause an “OVERFLOW ERROR”. 
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INT - round a number down 

The INT function will remove the fractional part of any number and 
so convert it into an integer (see Chapter Four). This is achieved by 
rounding the number down to the nearest whole number. For 
positive numbers this corresponds to chopping off the fractional 
part, e.g. INT(3.21) is 3. For negative numbers things are a little more 
complicated. Rounding a negative number down looks a little 
strange, e.g. INT(—4.7) is —5. But this is simply because —4>—5 L.e. 
—5 is smaller than —4! 


LN - Natural Logarithm of a number 

The natural logarithm of a number is the power that you have to 
raise ‘e’ to give the number. Most people are more familiar with a 
slightly different form of the logarithm. The logarithm that is given 
in most log tables is in fact the logarithm to the base 10. In other 
words it is the number to which 10 has to be raised to give the 
original number. Atmos BASIC includes both versions of the 
function. As LN(X) is the number to which you have to raise ‘e’ to 
get X you should be able to see that EXP(LN(X)) is X. 


LOG - the log to the base 10 

LOG(X) is the number to which you have to raise 10 to get X. This 
function has already been partially described in the last section. You 
must be careful not to confuse LN and LOG. 


PI (7) 

This is a very odd function in that it has no parameters and always 
returns the same result (7=3.14159265) but it is very useful. As 
everyone knows, the area of a circle is given by zr? and this translates 
to BASIC as: 


19 AREA=PI*R*R 


SGN - the SIGN of a number 

The sign of a number is +1 if the number is positive, —1 if it is 
negative and 0 if it is zero. For example, SGN(—232) is —1 and 
SGN(32339) is 1. 


SOR - the SQuare Root of a number 
The square root of a number is a result that when multiplied by itself 
gives the original number i.e.: 


SQR(X)*SQR(X) equals X 
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Notice that negative numbers do not have square roots because if 
you multiply any number, even a negative one, by itself you will get a 
positive number. If you try to take the square root of a negative 
number you will therefore get an “ILLEGAL QUANTITY 
ERROR”. 


The trigonometrical functions 


The best known examples of functions are probably the trigono- 
metrical or trig functions. It is beyond the scope of this book to go 
into detail about the theory of trigonometry and Chapter 9 of the 
Atmos Manual covers the definitions of TAN, SIN and COS. There is 
one use for the trig functions that is important to nearly every 
computer user interested in graphics, namely drawing circles. Again 
Atmos users are particularly lucky, in that Atmos BASIC includes a 
command that will plot a circle (covered in Chapter Eight) and its 
presence avoids the need to go into the trigonometrical details. 

If you do need to use any of the trig functions, it is important to 
realise that the Atmos doesn’t measure angles in degrees but inradians. 
If you want to convert an angle in degrees to radians then use: 


radians=degrees* PI/ 180 


Where PI is approximately 3.14159. To convert radians to degrees 
use: 


degrees=radians* 180/ PI 
The three trig functions available on the Atmos are: 


SIN = sine of an angle measure in radians 
COS = cosine of an angle measured in radians 
TAN = tangent of an angle measured in radians 


The Atmos also has available the inverse function related to the TAN 
function. 


ATN - ArcTaNgent 
The arctangent of a number is the angle in radians whose TAN is 
equal to the number, i.e. X=TAN(ATN(X)). 

If you need the inverse of SIN or COS, or any of a number of other 
derived trigonometrical functions you will find details of how to 
define them as user-defined functions later in this chapter. 
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String functions 


We have already met most of the string functions in Chapter Four. 
For completeness, and to provide a handy reference, all of the string 
functions are described here. However only the new functions are 
described in any detail. To see how the functions that require string 
input work, modify the following program: 


19 INPUT X$ 
20 PRINT ASC(X$) 
30 GOTO 19 


ASC - the ASCII code of a character 

The ASC function does the opposite to the CHR$ function in that it 
returns the position in the list of characters of any particular 
character. For example, ASC(“A”) is 65 and CHR§(65) is “A”. If 
ASC is applied to a string of more than one letter, the code of the 
first character in the string is returned as the result. If the string is 
null, i.e. contains no characters, the code returned is zero. 


CHR$ - CHaRacter function 

CHR&§(N) will give the character that is at the Nth position in the list 
of all the Atmos’s characters. CHR$ will return all the characters that 
the Atmos can use even if they cannot be printed on the screen. So, if 
you type CHR$(8), or any number up to and including 33, all you 
will see is a blank screen. 


HEX$ - HEXadecimal representation 

HEXS$ is a function that you certainly won’t use unless you are going 
to become involved in the technicalities of how the Atmos works! Its 
action is very simple to describe: it converts any number into a string 
of characters that represents the number in base sixteen. In other 
words, it returns the hexadecimal representation of the number. For 
example, HEX$(15) is “F” and HEX§(255) is “FF”. Before you can 
use HEX$, however, you need to understand something about 
hexadecimal numbers. 


LEFT$ - the left part of a string 
LEFTS$(‘string’,N) returns the first N characters of a string. 


LEN - the LENgth of a string 
The LEN function returns the length of any string. For example, 
LEN(“COMPUTER’) is eight and LEN(“”) (the null string) is 0. 
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MID$ - the mid part of a string 

MID&(‘string’,M,N) returns a string of length N starting at character 
M. If N is omitted then the entire string to the right of character M is 
returned. 


RIGHT$ - the right part of a string 
RIGHTS(‘string’,N) returns the last N characters of a string. 


STR$ - converts numbers to strings 

The STR$ is a function that is useful for advanced applications. It 
converts any number (or the result of an expression) to the string of 
characters that would be displayed if the number (or the result of the 
expression) were printed. The STR$ function therefore provides a 
link between numbers and strings - for example, “JULY "+ 
STR$(31) works out to the string “JULY 31”. 


VAL - converts digit strings to numbers 

The VAL function is the opposite of the STR$ function in that it 
converts a string into a number. The string can be any sensible 
collection of digits, i.e. anything that you could type in response to 
an INPUT statement. For example VAL(“34”) is 34 and if 
A$=“123.456” then VAL(A$) is 123.456. 


Special functions 


There are three functions, RND, KEY$, GET and FRE that are so 
generally useful that it seems worthwhile to treat them on their own 
and at some length. RND and FRE are functions that return 
numbers so they could otherwise have been treated in the section on 
arithmetic functions. KEY$ and GET return a character so they 
could otherwise have been treated as a string functions. 


RND 

RND(1) is a function that returns a number in the range 0 to less 
than 1, which can be treated as if it were random. To say that a 
computer can give a number at random always sounds like a 
contradiction and indeed to some extent it is. The point of confusion 
comes from the use of the word random. If you are using the 
computer to play a game then all that you need is a sequence of 
numbers that are not predictable by anyone playing the game. In 
other words, for most purposes a list of numbers can be said to be 
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random if there is no detectable pattern. If you run the following 
program: 


19 PRINT RND(1) 
20 GOTO 19 


you should see a list of numbers that shows no obvious pattern. (In 
fact there is a pattern but it is socomplicated it takes an Atmos to follow 
it!) This sort of randomness is more correctly called pseudo 
randomness and the RND function is a pseudo random number 
generator. The numbers that it produces are evenly spread 
throughout the range 0 to less than 1, i.e. any number is just as likely 
to ‘come up’ as any other and there should be no discernible pattern 
that would help someone predict the next number that RND will 
produce. 

The main trouble with RND is that it’s not often that we need a 
random number in the range 0 to less than |. We normally need the 
program to do one of a number of different things at random. The 
best way of doing this is to change the RND into a random whole 
number between | and N where N is the number of anything we want 
to select from, using the formula: 


INT(RND(1)*N)+1 


For example if you want to program a six-sided dice or choose at 
random between six different things, the value of N would be 6 and: 


1¢ PRINT INT(RND(1)*6)+1 
20 GOTO 19 


will print numbers from | to 6 with approximately the same 
frequency and in such a way that there should be no obvious pattern. 
The subject of how to use random numbers in programs is too vast 
to cover in this book but many examples will crop up in other 
chapters. If you want to explore randomness further, Chapter Five 
of The Complete Programmer by Mike James (published by 
Granada) is devoted to this topic. 


KEY$ and GET 

The function KEYS$ is closely related to INPUT in that it can be used 
to read in a single character from the keyboard. The difference is 
that INPUT A§ waits for something to be typed on the keyboard 
until the RETURN key is pressed, but KEY$ doesn’t wait. If you try 
the following program: 
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19 INPUT AS 
20 IF AS<>“” THEN PRINT AS 
30 GOTO 19 


you will have to press RETURN before you see anything on the 
screen. However, if you change line 19 to: 


19 AS=KEY$ 


the character corresponding to any key that you press appears on the 
screen at once. Notice that another difference between INPUT and 
KEY$ is that KEY$ doesn’t automatically print anything that you 
type on the screen. 

Whenever the Atmos meets the KEY$ function it immediately 
examines the keyboard. If there is a key already pressed the 
appropriate character is returned by the function. If no key is 
pressed the function returns the null string. No matter what has 
happened the KEY$ function does nor wait for a key to be pressed. 

The main use of KEY$ is in games where the arrow keys are used 
to control the movement of something on the screen. The following 
program indicates how the Atmos detects that one of the arrow keys 
has been pressed: 


1? AS=KEY$ 

20 IF AS="” THEN GOTO 19 

30 IF AS=CHRS(8) THEN PRINT “LEFT” 
4 IF AS=CHRS(19) THEN PRINT “DOWN” 
5@ IF AS=CHRS(11) THEN PRINT “UP” 

60 IF AS=CHRS(9) THEN PRINT “RIGHT” 
70 GOTO 19 


Line 1@ gets the character corresponding to any key pressed on the 
keyboard, if any. Line 29 tests to see if A$ is the null string, i.e. no 
key has been pressed, and if it is, sends control back to line 19. Thus 
the loop formed by line 1 and 29 only stops when a key is pressed. 
Then lines 3@ to 69 test to find out which of the arrow keys are 
pressed and print an appropriate message. As three of the arrow 
keys produce unprintable characters there is no choice but to use 
CHR$ functions with the correct character codes within the IF 
statements. Line 7 repeats the whole program. Notice that if any 
key other than an arrow key is pressed the loop formed by lines 10 
and 2 stops but nothing is printed on the screen. In Chapter Eight 
an example is given where the same sort of program is used to drivea 
dot around the screen. 
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The command GET isn’t written in the usual style of a function 
but it still returns a value. 


GET A$ 


works in much the same way as A$=KEY°$ in that the keyboard is 
examined and if a key is pressed the corresponding character is 
stored in A$. The difference is that GET will wait until a key is 
pressed. For example, you can delete line 26 from the previous 
program if you replace line 10 by: 


19 GET AS 


because GET automatically waits until a key is pressed and so it 
cannot return the null string. 


FRE 

The function FRE(0) will return as a result the amount of memory 
that is unused and hence free. Thus to find out how much memory 
you have left type: 


PRINT FRE(@) 


This use of FRE to find out how much memory is unused is simple 
enough. However, there is an additional way of using FRE that is far 
from obvious. During string operations memory is used up to hold 
temporary results and copies of old versions of the strings involved. 
This memory is not immediately returned to the unused portion of 
RAM and so you can be in the position of storing rather more data 
than you need. Although the Atmos will eventually get round to 
clearing up the memory and removing such garbage as unwanted 
string values, leaving this until it is necessary can make the task take 
some time. However you can force the Atmos to perform garbage 
collection by using: 


A=FRE(“”) 


Where the A can be any variable that you are not using. In general, 
unless you are writing very large programs or going in for a lot of 
string handling, don’t worry about using FRE(“”). 


User-defined functions - DEF FN and FN 


In our general introduction to functions, the idea of a function to 
find the maximum value of two numbers was discussed but it was 
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pointed out that, although the Atmos has a wide range of functions, 
such a ‘max’ function isn’t among them. Atmos BASIC does allow 
definition of new functions but not with enough freedom to allow us 
to create such a function to determine the maximum of two 
numbers. However even this limited ability is worth having. 

You can define a new function in terms of an expression. For 
example, the Atmos lacks a square function, i.e. one that will work out 
the square of any number. The names of all user-defined functions 
are ‘FN’ followed by one letter, so you can define the new function 
‘FNS’ to fill this gap by: 

DEF FNS(X)=X*X 


The word DEF is used to indicate that this is a function definition. 
The meaning of this function should be clear — whenever the Atmos 
sees the function called ‘FNS’ it squares the parameter within the 
brackets next to it. For example: 


A=FNS(2) 


would result in 4 being stored in the variable ‘A’. This is all fairly 
straightforward but what about the following: 


19 DEF FNS(X)=X*X 

20 X=3 

30 Z=4 

4) A=FNS(Z) 

50 PRINT “X =":Xs* Z =":Z" A ="sA 


Before you run this program try to work out what the values of ‘X’, 
*Z’ and ‘A’ will be. The correct answer is that ‘X’ is 3, ‘Z’ is 4and ‘A’ is 
16. Any possible confusion comes from the fact that ‘X’ is used in the 
definition of the ‘FNS’ function and in the program. A point to the 
note is that the names that you give to parameters in the definition of 
functions are nothing to do with any variables that you might use in 
the rest of the program. In this sense DEF FNS(A)=A*A, DEF 
FNS(Z)=Z*Z, etc., all define the same function! In a function 
definition the parameter merely shows what is to happen to the real 
parameter when the function is used — because of this, such a 
parameter is often called a dummy parameter. If you’ve managed to 
cope with these ideas, you might like to try to work out what this 
program’s result is: 


19 DEF FNT(I)=SUM+1 
20 SUM=0 
30 PRINT FNT(30) 
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4) SUM=19 
5@ PRINT FNT(30) 


In this case the variable ‘SUM’, used in the expression to define the 
function, isn’t a dummy parameter and it is therefore taken to bea 
variable in the main program, i.e. ‘SUM’ in the function definition is 
the same as ‘SUM’ in the rest of the program. The idea of a dummy 
variable gets easier after you have had time to think about it. 

To summarise, the rules for forming a user-defined function are: 


(1) Every function that you use must be defined using a DEF FN 
statement somewhere in the program before it is first used. 

(2) Only numeric user-defined functions are allowed. 

(3) A function definition must include exactly one parameter. 

(4) Any valid BASIC expression can be used in a function 
definition. 


These four rules may seem like a lot to remember but they all 
accord with common sense. Some examples of functions may help to 
clarify matters: 


DEF FNV(P)=P*15/ 100 
DEF FND(N)=INT(RND(1)*N)+1 
DEF FNT (P)}=P+FNV(P) 


The first function will calculate VAT (at 15%) on the price P. The 
second example will return a random number between | and N. 
(Notice the use of the standard Atmos function INT in the 
definition.) The third example calculates the total price of 
something including VAT (at 15%). It uses the first example 
function FNV to calculate the VAT on the amount P and then adds 
this to P to give the total price. 


User-defined trig functions 


Although the Atmos supplies the most commonly used trig 
functions there are a few that it lacks. These can be added to Atmos 
BASIC as user-defined functions and the necessary formulae can be 
found in any book on trigonometry. However, the inverse sine 
(arcsine) and inverse cosine (arccos) are so useful that it is worth 
quoting user-defined functions that can produce them: 

Inverse sine: 


DEF FNS(X)=ATN(X/SQR(—X*X+1)) 
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Inverse cosine: 


DEF FNC(X)=—ATN(X)/SQR(—X* X+ 1))+ 1.5708 


Subroutines - GOSUB and RETURN 


The idea of creating new operations by defining functions is a very 
powerful one but it is already possible to see its shortcomings. 
Sometimes it would be an advantage to give a name, not just to one 
line of BASIC in the form of a user-defined function, but toa whole 
collection of lines. This is the idea behind a subroutine. A 
subroutine is nothing more than a group of BASIC statements that 
can be used as often as required just by writing their ‘name’. (In the 
same way that a single line of BASIC can be used as often as required 
by using a user-defined function’s name.) The trouble with BASIC 
subroutines is that they are very limited. You cannot even give a one- 
letter name to a subroutine. It has to be referred to by the line 
number of its first line and there is no provision for parameters of 
any sort. Even with these restrictions the BASIC subroutine is still 
well worth knowing about and using. 

If the lines of BASIC that go to make up the subroutine start at 
line ‘n’ then you can use the subroutine by: 


GOSUB n 


Where GOS UB stands for GO to SUBroutine. Indeed, the action of 
a GOSUB is very like GOTO in that it transfers control to line ‘n’. 
The difference between a GOTO and a GOSUB is that the GOSUB 
command causes the Atmos to store the line number of the GOSUBin 
a special area of memory set aside for the purpose. This stored line 
number is used by the RETURN statement to transfer control to the 
line following the GOSUB when the subroutine has finished. For 
example, the effect of a GOSUB and a RETURN on the flow of 
control is: 


19 GOSUB 1999 ------------ 
--> 2 PRINT A 
| 
i 49 rest of program 
1 1PPGA=56 <2.+---2s2554es—- 
--- 1919 RETURN 
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Line 19 transfers control to the subroutine that starts at 1900, which 
simply stores 56 in the variable ‘A’. The RETURN statement at line 
1919 ends the subroutine and automatically transfers control back 
to line 20. 

You can use any BASIC statement that you can use elsewhere ina 
program within a subroutine. In particular, there is nothing to stop a 
subroutine from using GOSUB and transferring control to another 
subroutine. If you do this, then the next RETURN will transfer 
control back to the statement after the most recent GOS UB. In other 
words, if one subroutine calls another then RETURN behaves as 
you would expect it to, by transferring control back to the place that 
each subroutine was initiated, i.e.a RETURN never forgets where it 
came from! 

This pair of instructions GOSUB and RETURN are all that there 
is to the BASIC subroutine. All the variables in a subroutine are the 
same as the variables in the rest of the program, there are no 
parameters of any kind. As suggested earlier, this might lead you to 
believe that subroutines are not very useful — this is far from the 
truth. 


Using subroutines 


Many programmers believe that the most useful way to use a 
subroutine is to replace any piece of program that is needed more 
than once. For example, if in a large program you need to print the 
same message over and over again, then it is better to turn that line 
into a subroutine and GOSUB to it every time it is needed. Although 
this is an important use of subroutines it is often the case that it is a 
good idea to form parts of a program into subroutines even if each 
part is only used once! The reason for this is that programs that use 
subroutines are easier to understand, easier to find mistakes in and 
easier to modify. This is not the sort of statement that anyone can 
prove because what is easier in this context is clearly a matter of opinion. 
The use of subroutines in writing BASIC programs will be 
illustrated by the examples in the rest of the book. If you discover 
some other method of programming that you like better, then no 
one will be able to argue with you! All I can say is that many 
programmers agree that subroutines are a good thing! 

No matter how you use subroutines there are two applications 
that you cannot afford to ignore. In Chapter Three the idea of 
grouping together BASIC statements using the colon was 
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introduced. This was then used in the two extended versions of the 
IF statement - IF...THEN ‘list’ and IF... THEN ‘list 1’ ELSE ‘list2’— 
to avoid complications in the flow of control. The only problem was 
that a list of BASIC statements on a single line separated by colons 
soon becomes difficult to read and this limits the usefulness of these 
forms of the IF statement. Now we have another way of grouping 
statements together that doesn’t become confusing no matter how 
many statements are involved. So instead of using: 


IF ‘condition’ THEN ‘list of BASIC statements’ 
use 
IF ‘condition’ THEN GOSUB xxx 


where xxx is the line number where the ‘list of BASIC statements’ 
used in the first version, starts once it has been converted into a 
subroutine, i.e. with one statement to a line and ending with a 
RETURN statement. And instead of using: 


IF ‘condition’ THEN ‘list 1’ ELSE ‘list 2’ 
use 
IF ‘condition’ THEN GOSUB xxx ELSE GOSUB yyy 


where xxx is the line number where the subroutine containing the 
BASIC statements of ‘list 1’ starts and, similarly yyy is the line 
number where the subroutine containing the BASIC statements of 
‘list 2’ starts. Remember if a list of instructions is more than a few 
statements long - turn it into a subroutine! 


Chapter Six 
Low Resolution Graphics 
and Colour 


The main delight of programming the Atmos is using its graphics and 
sound! This chapter starts by introducing the sort of graphics that 
can be produced using PRINT and PLOT statements. These are 
usually referred to as /ow resolution graphics and on the Atmos are 
also known as teletext graphics and are the same system as used on 
Ceefax and Oracle. Chapter Seven adds sound and Chapter Eight 
deals with drawing pictures in finer detail, high resolution graphics. 
You shouldn’t be misled into thinking that high resolution graphics 
are in some way more useful than low resolution graphics. They are 
not more advanced, just different and it’s amazing how often a 
program works better and is easier to write using low resolution 
graphics. 

Perhaps the biggest challenge in using the Atmos is controlling its 
colour display. In both low and high resolution modes the Atmos uses 
a method called serial attributes to determine how something will be 
displayed on the screen. Serial attributes are a good idea in that they 
allow a full eight-colour display to be produced using no more 
memory than a black and white display with the same resolution. 
However, as the attribute codes that set the colour have to be 
positioned on the screen, just like any other characters, there are 
limitations on the way that you can change the display colour. These 
limitations are not too bad once you understand the logic behind 
serial attributes and this is described in some detail in this chapter 
and returned to in Chapter Eight. 


Controlling PRINT 
So far, we have used the PRINT statement to print numbers and 


strings on the screen, either one to a line or next to each other on the 
same line. Although this is sufficient for most programs there is 
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often a need to control exactly where something will be printed on the 
screen. In Chapter Two the PRINT statement was defined as: 


PRINT ‘print list’ 


where ‘print list? was explained to be a list of items each one 
separated by semicolons. The need for the semicolons is simply to 
show where one item ends and another begins. For example, PRINT 
COUNT SUM will try to print a single variable called ‘COUNTSUM’ 
(remember blanks are ignored in variable names), while PRINT 
COUNT;SUM will try to print two variables ‘COUNT? and ‘SUM’ 
next to each other on a single line. 

The Atmos actually allows the use of two symbols to separate print 
items and each one has a different effect on the layout. The 
semicolon (;) that we have been using since Chapter Two simply 
means print the next item without leaving any space. Usinga comma 
(,) as a Separator instructs the Atmos to move to the next print ‘zone’ 
before printing the next item. The Atmos’s screen is divided into five 
print zones, each eight characters wide. For example, 


PR INT AEB 


will print ‘A’ in the first column and then move on to the start of the 
next print zone before printing ‘B’. In other words the ‘B’ will be 
positioned in the eighth printing position, thus leaving seven spaces 
between ‘A’ and ‘B’. Numbers, however, are always printed starting 
with a single space. For example, 


PRINT 1;2 


will print the two print items next to each other but the single space 
that forms the start of the second number stops the two numbers 
running together. So rather than 12 being printed, as you might 
expect, | 2 results. In the same way, 


PRINT “A”,B 


will leave eight spaces between the ‘A’ and the number stored in B, 
the first seven are the result of the comma and the eighth is just the 
space that precedes the printing of all numbers! 

You can use a print separator more than once in the same 
statement — e.g. PRINT “A”,,“B” will cause the Atmos to print the 
‘B’ in the third print zone. 

There is one special case that is worth commenting on. If either of 
the separators is placed at the end of a list of print items, the 
automatic starting of a new line is suppressed. For example: 
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PRINT “A”, 
PRINT “B” 


is the same as PRINT “A”,“B” 
and: 


PRINT “A”; 
PRINT “B” 


is the same as PRINT“A”;“B” 


TAB and SPC 


The use of different ‘print list’ separators has certainly increased our 
control over how things are printed on the screen but we still cannot 
exactly control the space between print items. To achieve this we 
need something more than different separators. The special function 
TAB is provided to control exactly the amount of space left between 
each print item. (It is special in the sense that although TAB is 
written like a function, it produces no value as a result of its use and 
it can be used only as part of a ‘print list’.) 

The general form of the TAB function is: 


TAB(arithmetic expression’) 


and its effect is to move the printing position to the column given by 
the value of ‘arithmetic expression’. For example, 


PRINT “A”;TAB(10);“B” 


will print ‘A’ at the first printing position and ‘B’ at the tenth 
column. If you try this, however, you will find that there appears to 
be something wrong in that, although the ‘A’ appears in the first 
printing position, the ‘B’ isn’t in column ten! The reason for this is 
that the first printing position on the Atmos’s text screen isn’t called 
column one. It is, for reasons that will be explained later in this 
chapter, called column two (see Fig. 6.1). Once you know that all 
printing starts from column two, you should be able to see that 


PRINT “A”;TAB(10);“B” 


really does print ‘B’ in column ten. That is, it produces the 
following: 


column number 2 3 4567 8 9 10 
A B 
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X CO-ORDINATES 
Fig. 6.7. The text screen. 


You can have as many TABs ina PRINT statement as you need so, 
PRINT “A”; TAB(10);“B”;TAB(20);“C” 


will print ‘A’ at column 2, ‘B’ at column 10 and ‘C’ at column 20. 

Another way of leaving space between print items is to use the 
SPC function. Quite simply SPC(X) will print X spaces on the 
screen and so it can be used to leave a given amount of space between 
print items rather than positioning them at the start of particular 
columns. For example, 


PRINT A$;SPC(19);B$ 


will leave ten spaces between the strings in A$ and B$, no matter how 
long each of them is, whereas, 


PRINT A$;TAB(1Q);B$ 


will position the first letter of B$ in column 10 and the amount of 
space between A$ and B$ depends on how long A$ is. 


Positioning using @x,y 


The TAB function allows output to be positioned horizontally but if 
you want to print something on a particular column ona particular 
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line then you have to use the ‘@” function. If you include @x,y 
anywhere in a PRINT statement the text cursor will be moved to 
column x on line y before the next item is printed. (Note: as the 


symbol ‘@” is usually pronounced ‘at’ the function @x,y can be read 
as ‘at x,y’ or even ‘at column x row y’.) For example, the command, 


PRINT @ x,y; ‘print list’ 


will start printing the first item in the ‘print list’ on line ‘y’ at column 
‘x’. The Atmos Manual stresses the use of @ at the beginning of a 
PRINT statement but it is important to realise that, not only can it 
occur anywhere within a print list, it can occur as many times as you 
want it to! For example, 


PRINT @10,15;*THERE”;@5,10;“*HELLO” 


will print THERE on line 15 with the T positioned in column 10 and 
HELLO on line 10 with the H positioned in column 5. In other 
words @x.,y can be used within a PRINT statement in the same way 
that TAB or either of the two print separators can. And it can be 
used with them to achieve whatever print positioning you desire. For 
example: 


PRINT @19,2;*A";TAB(20);“B";@19,3;*C”,“D” 


The only thing to be careful of is that the values of ‘x’ and ‘y’ do 
correspond to a column and line number that is on the screen. The 
text lines are numbered starting at the top of the screen and the only 
complication is that the first line is line zero. The columns are also 
numbered starting from zero with column zero one the far left of the 
screen (see Fig. 6.1). Thus you should be able to see that the Atmos’s 
text screen has column numbers 0 to 39 and line numbers 0 to 26. So 
for example, if you use PRINT @ 49,10;*HELLO” then you will get 
an ILLEGAL QUANTITY ERROR because there is no column 40! 
But, 


PRINT @ 3,5;“A” 


will print ‘A’ on line 5 (i.e. the fourth line down) and column 3. As 
already mentioned in connection with the TAB function, the Atmos 
always starts printing in column two. Columns 0 and | havea special 
role to play in controlling the colour of the screen and so, for the 
moment they are better left alone. 

It is worth noting that the @ function will place output on the 
screen without changing anything other than the character locations 
where the new output appears - this should be compared to the TAB 
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function which clears all of the printing positions that it moves the 
text cursor over. For example, try: 


10 PRINT @ 2 Q) SREAHAAER EAE EERE HEEEERRERRER EEE E ER” 
’ >. 


20 PRINT @15,0;“HELLO” 


It doesn’t matter exactly how many asterisks you use in line 1, they 
are only there to show the effect of the following PRINT command 
in line 20. When you RUN this short program you will see HELLO 
appear within a line of asterisks. However if you change line 20 to 


20 PRINT @20; 
and add line 30, 
30 PRINT TAB(15);“HELLO” 


you will see that the TAB command erases the asterisks before the 
HELLO. 

As an exercise in using the @ function try to write a program that 
draws a square made of asterisks on the screen. Incase you have any 
probelms, one of the many possible answers (there is always more 
than one way of writing a program) is: 


10 FOR I=0 TO 19 

20 PRINT @I+19,5;*” 
30 PRINT @I+19,15;“*” 
4 PRINT @19,1+5;“*” 
50 PRINT @20,1+5;“*” 


60 NEXT I 
KFTFFFFFFFEFEFE 


obs oe ob oe ok ok oe 
Hi of oi oe oe oh oe 


HRHRRRHRREZE 
Fig. 6.2. Square of asterisks. 
Lines 20 and 3@ print the two horizontal rows of asterisks and lines 
49 and 5@ print the two vertical columns of asterisks. 


PLOT 
There is a second command that can be used to position output 
anywhere on the screen. The command, 
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PLOT x,y‘string’ 

will print ‘string’ on line ‘y’ starting at column ‘x’. So, for example, 
PLOT 10,15,“HELLO” 

appears to have exactly the same effect as 
PRINT@ 19,15;“HELLO” 


However there are some important differences between PRINT@ 
and PLOT. The most obvious difference is that the PLOT command 
is more limited in that it cannot accept the full range of items that 
can appear in a PRINT statement. In fact you can only PLOT a 
single string variable or constant. (There is another form of the 
PLOT command that can accept an integer variable or constant but 
this will be explained later in this chapter.) 

It is not difficult to see how you can use the STR$ function to 
convert numeric variables to strings so that they can be PLOTted 
but there is no way that you can use the print positioning items, i.e. 
TAB, the comma and the semi-colon. This is such a serious 
limitation that it hardly seems worth introducing the PLOT 
command; after all PRINT used in combination with @x,y can do 
anything it can! The truth of the matter is that there isan advantage 
in using the PLOT command when it comes to controlling the 
colour of the screen and in low resolution graphics in general. In 
other words PRINT should be used to position text items and print 
numeric variables etc., but PLOT should be used wherever low 
resolution graphics are being used. The justification for this 
statement will have to wait until the section where the method of 
controlling Atmos colour is explained. 

Another difference between PRINT @x,y and PLOT x,y is that 
PLOT doesn’t move the text cursor. This mainly affects the use of 
the INPUT command. The @x,y function works by moving the text 
cursor to the position given by x,y and then dealing with the print list 
in the usual way. (The text cursor is the flashing solid block that 
marks the position where any output or input typed at the keyboard 
will appear on the screen.) However the PLOT command doesn’t 
move the text cursor. To see this difference try the following: 


10 CLS 

20 PLOT 5,20,*HOW OLD ARE YOU” 

30 INPUT AGE 

40 CLS 

5@ PRINT @5,20;*HOW OLD ARE YOU’; 
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69 INPUT AGE 


Line 19 clears the screen and positions the text cursor at the top left 
hand corner. Line 20 ‘plots’ the question on line 20 but the response 
to the INPUT statement at line 39 appears on the screen at the 
current text cursor position, i.e. in the top left hand corner of the 
screen a long way from the question! Line 49 once again clears the 
screen and positions the cursor at the top left hand corner of the 
screen but this time the message is printed using a PRINT@ 
command which moves the text cursor down to line 20. Asa result 
the response to line 6 appears on the screen along side the question. 

The fact that @x,y moves the text cursor is a positive advantage if 
you are are trying to position where something typed on the 
keyboard will appear, but when low resolution graphics are being 
used it is generally a nuisance. This is another reason to use PRINT 
for text output and positioning input, and PLOT for low resolution 
graphics. 


Serial attributes 


Now that we have a number of ways of controlling where a character 
or a string of characters will be displayed on the screen it is time to 
look at the way that the Atmos controls how the characters are 
displayed - serial attributes. The idea that lies behind serial 
attributes is not difficult to understand. The first 32 characters of the 
Atmos’s character set are special in that they do not correspond to 
shapes that can be displayed on the screen. Instead they are 
interpreted by the Atmos as commands that change some aspect (the 
colour, size, etc.) of the characters that follow on the same line. For 
example CHR§(1) isa command to change the foreground colour to 
red and any characters that occur on the same line and to the right of 
CHR&§(1) will be displayed in red. So, the 32 characters 
corresponding to CHR$(0) to CHR§(31) are taken as commands to 
alter the way that other characters on the same line and to their right 
will be displayed. These 32 characters are often referred to as 
attribute codes. An attribute code shows as a blank in the current 
background colour and the space that it occupies cannot be used to 
print another character without automatically overwriting the code 
and so removing its effect. 

The meaning of each of the attribute codes can be seen in Table 
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6.1. If you examine this table carefully you will see that the codes fall 
into four groups: 


codes 0 to 7 set the foreground colour 

codes 8 to 15 set the size and flashing attributes 
codes 16 to 23 set the background colour 

codes 24 to 31 not normally of any use 


It makes sense to discuss the attributes that affect colour in a section 
of their own and similarly the size and flashing attribute codes 
deserve their own section. However there are a few further general 
points to be made before moving on to the more specific ones. 


Table 6.1 
Code ESC Effect 

0 @ Change to black foreground 

1 A Change to red foreground 

2 B Change to green foreground 

3 Cc Change to yellow foreground 

4 D Change to blue foreground 

5 E Change to magenta foreground 

6 F Change to cyan foreground 

7 G Change to white foreground 

8 H Standard normal height characters 
9 I Graphics normal height characters 
10 J Standard double height characters 
11 K Graphics double height characters 
12 L As 8 but flashing 

13 M As 9 but flashing 

14 N As 10 but flashing 

15 O As |1 but flashing 

16 P Change to black background 

17 Q Change to red background 

18 R Change to green background 

19 S Change to yellow background 
20 T Change to blue background 
21 U Change to magenta background 
22 V Change to cyan background 
23 WwW Change to white background 


24-31 Change display mode - do not use 
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Using serial attributes is very easy but there are a number of small 
details concerning the way the PRINT statement works that 
increase their complexity. Suppose that you want to display the two 
words HELLO THERE with the first word in red and the second 
word in blue. The simplest way of doing this is to first form a string 
containing the apropriate codes and characters. The attribute code 
for red is CHR§$(1) and for blue it is CHR$(4) (see Table 6.1). If you 
try: 


19 SS=CHRS(1)+“HELLO THERE” 
20 PLOT 4,19,S$ 


You will see both words HELLO THERE displayed in red. The 
attribute code for red instructs the Atmos to display everything to its 
right using a red foreground colour. To change the colour of 
THERE to blue it is necessary to embed the blue foreground 
attribute code just before it. That is: 


19 S$=CHR$(1)+“HELLO”+CHR$(4)+“THERE” 
20 PLOT 4,19,S$ 
Notice that the attribute code for the blue foreground colour i.e. 


CHR$(4) now occupies the space between the two words. In other 
words, the line on the screen is: 


column number 4 5 6 7 8 9 10 11 12 13 14 15 
display SP H E L L OSP T H E R E 
Code 01 04 

colour red blue 


where SP indicates that a space in the current background colour is 
displayed at that location. 

The idea of creating a string with the correct attribute codes 
embedded and then PLOTting it is easy enough to understand but if 
you try the same program with PLOT replaced by PRINT you will 
find that it just doesn’t work! In other words: 


19 SS=CHRS$(1)+“HELLO”+CHR$(4)+“THERE” 
20 PRINT S$ 


just prints HELLO THERE in the usual colours. The trouble is that 
the PRINT statement interprets characters that correspond to 
ASCII codes less than 32 in a variety of different ways. For example 
CHR&§(7) is the attribute code for foreground white but if you try: 
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19 PRINT CHRS(7) 


you will find that rather than changing the colour of the foreground 
it makes the Atmos go ping! 

So that you can include attribute codes within PRINT 
commands, the Atmos recognises CHR$(27), the code produced by 
the ESC key, in combination with the standard letters shown in 
Table 6.1 to stand for the attribute codes. So for example, 
PRINTing CHR§$(27) followed by “A” will result in the attribute 
code for red foreground being placed on the screen. You can also 
enter attribute codes directly by pressing the ESC key followed by 
the appropriate letter key. To see this, clear the Atmos’s screen and 
then move the cursor into approximately the middle using the arrow 
keys and then type ESC followed immediately by the letter A. Any 
other characters that you type on the same line will be displayed in 
red. 

Now that the use of the ESC character in PRINT statements has 
been described, the problem of PRINTing HELLO THERE in two 
different colours is easy to solve: 


19 S$S=CHRS(27)+“AHELLO”+CHR§(27)+“DTHERE” 
20 PRINT S$ 


The CHR§$(27) makes the Atmos interpret the next letter as an 
attribute code as given in Table 6.1. As the first CHR§(27) is 
followed by A, the word HELLO is displayed in red and as the 
second CHR§(27) is followed by D, the word THERE is displayed in 
blue. 

There is another way of getting the PRINT command to recognise 
attribute codes and this is by way of the ASCII codes greater than 
127. Normally the ASCII codes 128 to 255 are not used but the 
Atmos treats them as being equivalent to the attribute codes 
obtained by subtracting 128. For example, PRINT CHR$(128) will 
print attribute code 0, PRINT CHR$(129) will print attribute code 
1. In general to print attribute code x you can use: 


PRINT CHR$(x+128) 
For example, 


10 S$S=CHR$(128+ 1)+“HELLO”+CHR$(128+4)+"THERE” 
20 PRINT S$ 


will print the familiar message in red and blue. 
All these different methods of controlling the colour of the screen 
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seem complicated at first and so it is worth giving a summary: 


1) The attribute codes lie in the range 0 to 31 and these can be used 
directly with the PLOT command. For example, PLOT x,y,CHR$(7) 
will store the attribute code for a white foreground at x,y. 


2) The PRINT statement interprets the ASCII codes 0 to 31 as 
special commands rather than attribute codes. For example, 
PRINT CHRS$(7) makes the Atmos go ‘ping’, the reason for this 
being that 7 is the ASCII code to ring a bell. That is, attribute codes 
cannot be used directly within a PRINT statement. 


3) There are two ways to make the PRINT statement recognise and 
act on an attribute code. Either precede the attribute code with the 
ESCape character, (i.e. CHR$(27)), or use the attribute code plus 
128. For example, both 


PRINT CHR$(27);CHR$(7) 
and 
PRINT CHR$(128+7) 
will print the attribute code for a white foreground. 


In general it is easier to use the PLOT command to store attribute 
codes and this is the reason for the suggestion that it is better suited 
to low resolution graphics than the PRINT command. However 
once you are certain of how they work it is a matter of personal 
preference. 


Default colour - INK and PAPER 


So far, all of the examples of serial attributes have used the colour 
codes to illustrate the ideas involved. However, there area few extra 
commands and details of operation that are unique to the colour 
attributes. In particular when you first switch on your Atmos what 
determines that the characters will be displayed black on a white 
background? The answer is that initially the screen is set up with a 
column of white background attribute codes, CHR$(23), and a 
column of black foreground codes, CHRS$(0), as far over to the left 
as possible. Indeed, the background codes are stored in column 
0 which cannot be altered by PRINT or by PLOT (see Fig. 6.1). 
The codes for the foreground colour are stored in column | 
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which cannot be altered bya PRINT statement but can be altered by 
a PLOT statement. As both columns are as far over to the left as 
possible, they set the background and foreground colours for the 
rest of the text on the screen unless another attribute code is present 
on the line. You can change these default colours by using the INK 
and PAPER commands. The command: 


PAPER c 


will store the background attribute code c+16 in the reserved 
column 0. Similarly, 


INK c 


will store the foreground attribute code c in column |. As both INK 
and PAPER store the code at the start of each line, the result is that 
the whole screen changes colour at once. The only exceptions to this 
are any characters whose colour is controlled by attribute codes on 
the screen to the right of column 0 or 1. INK and PAPER have no 
use other than setting the default background and foreground 
colours. In particular they cannot effect the colour of a single 
character on the screen. 


The graphics characters - LORES 


The PRINT or the PLOT command can obviously be used to place a 
character anywhere on the screenand, as we sawearlier in this chapter (in 
the program that prints a square), this can be used to produce limited 
graphics. This ability only comes into its own when used with the 
Atmos’s range of graphics characters. If you look at Table 6.1 you will 
see that attribute codes 8 and 9 select between the standard character 
set and a graphics character set. As well as the standard character set 
of letters, numbers and punctuation, the Atmos hasa range of graphics 
shapes all derived from the basic character square which is divided 
into six parts as shown in Fig. 6.3. Each graphics character has a 
different combination of foreground and background squares. To 
see the entire range of characters that the Atmos can produce try: 

19 FOR I=32 TO 128 

20 PRINT CHR§(27);“H”;CHRS(I); CHR$(27);“1"; 

CHRS(1) 
30 NEXT I 


Although line 2 looks very complicated, the first CHR$(27) is 
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Fig. 6.3. 


followed by H and so this is the attribute code that selects the 
standard character set and the second CHR§(27) is followed by I 
and this selects the graphics characters. Notice that CHR$(I) can 
produce either of two possible characters, the one which is displayed 
being determined by the attribute code to its left. 

You could use the graphics characters to make up shapes and lines 
by looking through the list produced by the previous program and 
picking the ones that you need. However, there is a simple way of 
finding the code that will produce any graphics character. If the 
small squares that make up a graphics character are numbered as 
shown in Fig. 6.3, then the code of a graphics character can be found 
by adding together the numbers corresponding to the squares that 
are to be displayed in the foreground colour, and then adding 32. 
For example, the vertical bar graphics character shown in Fig. 6.4 
has the code 53 and so it can be PRINTed using: 


10 PRINT CHR§$(27);“I”; CH R8$(53); 


where, as before, CHR$(27);“I” is the attribute code that selects the 
graphics character set and CHR§(53) is the vertical bar. 


ESE so 
Code =(1+4+ 16) +32 =53 


Fig. 6.4. 
You can select between the standard character set and the 


graphics character set by placing the correct attribute code to the left 
of the character code. However this method is a little clumsy when in 
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most cases we either want to use mainly the standard character set or 
mainly the graphics character set. To increase the flexibility of the 
Atmos’s display the command: 


LORES | 
will both clear the screen to a black background, set the foreground 
colour to white and select the graphics character set. The command: 


LORES @ 


works in the same way as LORES | but the standard graphics set is 
selected. Notice that LORES introduces nothing new in the sense 
that all it does is to store the appropriate attribute codes on the left- 
hand side of the screen. Thus, if the screen is made to scroll following 
LORES @ or LORES | you will see standard text lines filling the 
screen from the bottom as the attribute codes are scrolled out. 
As an exercise in using the graphics characters consider the 
problem of a better looking square using graphics characters: 


1? LORES 1 

20 FOR I=1 TO 9 

30 PLOT 1+19,5,CHRS(80) 
40 PLOT I+19,15,CHRS(80) 
5@ PLOT 10,1+5,CHRS$(53) 
60 PLOT 20,1+5,CHRS(53) 


70 NEXT I 
CUERRS ETRE LE 


Fig. 6.5. Graphics square. 


In this case the graphics character set is selected by the LORES 1 
command in line 19. Lines 39 to 6@ PLOT either a horizontal bar 
CHR$(8@) or a vertical bar CHR$(53) to form the sides of the 
square. The trouble with this square is that the corners are missing 
and putting them in is a matter of printing at the correct positions 
four ‘L’ shaped graphics characters. This is left for you to remedy. 

As you can imagine, drawing more complicated shapes using the 
graphics characters is very difficult. Fortunately, apart from 
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drawing the occasional ‘thick’ horizontal or vertical line, the 
graphics characters are normally only used in small numbers to print 
special shapes. For example, if you want to print the outline of a ship 
during a game you could use: 


PLOT X,Y,CHRS$(94)+ CHR$(92)+ CHR$(92) 


which, assuming that the screen is set up following a LORES 1, will 
PLOT a ship at column X, line Y. 


CHRS$(94) CHRS&(92) CHRS(92) 
Fig. 6.6. Ship graphics. 


If you would like to see a ship move across the screen try: 


1? LORES 1 
20 FOR X=1 TO 34 

30 PLOT X,5,CHRS(32)+CHR$(94)+CHR$(92)+CHRS$(92) 
4) NEXT X 


hems choo ches oh 
DT ee 
eee = 
oe ees eS es Sl cl 
cies cen 20 ee eS cee Sle Sl 
OL ee ee ee ee ee 
OT ne ee eee eee = 


Fig. 6.7. Screenful of ships. 

Notice the space, CHR$(32), left before the first graphics 
character in line 30. If you want to know what the space is for try 
leaving it out! If you want to animate a coloured ship then the space 
can be replaced by a foreground colour attribute. For example to see 
a red ship change line 30 to: 


39PLOT X,5,CHR$(1)+CHRS$(94)+ CHRS$(92)+CHR$§(92) 
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User-defined graphics characters 


The range of shapes that can be made up from combinations of the 
graphics characters, discussed in the previous section, is fairly 
limited if you want to form small shapes. For example, how would 
you make up the shape of a man within the space of a single 
character? Luckily all of the Atmos’s characters, standard and 
graphics, can be altered to produce any shape you could want. 

Before we can go on to explain how to define new characters, we 
first have to examine how characters are produced on the screen. 
Every character that the Atmos can display on the screen is in fact 
produced from a grid of 48 dots arranged into a grid, six dots wide 
by eight dots high. The pattern of any character depends on which 
dots in the grid are displayed as foreground and which are displayed 
as background colour. For example, the letter ‘a’ is produced by the 
pattern of dots shown in Fig. 6.8 (f stands for foreground and b for 
background). 


bbbbbh 
bbbbbb 
bYffbb 
bbbbtb 
bP rh fp 
fbbbtb 
off ttb 
bbbbbb 
Fig. 6.8. 


You might find it difficult to see the pattern of the letter ‘a’ among 
the ‘f’s and ‘b’s but it becomes very clear if each ‘f’ is replaced by an 
asterisk and each ‘b’ is replaced by a blank as in Fig. 6.9. 


KKK 
x 
KOK KOK 
x x 
OK OK KOK 


Fig. 6.9. 


Obviously, if we are going to define the shape that corresponds to 
a user-defined graphics character, there must be some way of 
specifying which dots in the six by eight grid are foreground and 
which are background. The definition of the new character has to be 
done a row at a time. Each row of dots in the grid is converted into a 
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number representing the pattern of background and foreground 
dots. The way that this is done is similar to the way that the code for 
a particular graphics character was obtained in an earlier section. 
Each row of the character is composed of six dots and each dot is 
associated with a number as shown in Fig. 6.10. 


Fig. 6.10. 


The number that corresponds to the pattern of foreground and 
background dots is obtained by adding together the numbers that 
are in positions that correspond to foreground dots. So for example 
the dot pattern ffbbff gives 32+16+2+1, or 51, as the number that 
represents it. After converting all eight rows of dots to numbers, all 
that remains is to replace the character definition already stored in 
the Atmos’s memory. The eight numbers that define the dot pattern for 
character x are stored starting at memory location 46080+ ASC(x)*8, if 
the character is in the standard character set, and at 47104+ ASC(x)*8, 
if it is in the graphics character set. Once you know the address 
that the character definition is stored at, it is easy to replace the 
current eight numbers that define each row by the new set of eight 
numbers using the POKE command. The command POKE a,v will 
store the value ‘v’ in the memory location at address ‘a’. 

All this will be easier after an example. The little man character 
mentioned above could be defined using the dot pattern shown in 
Fig. 6.11. 


dot pattern value 
bbf fbb 12 
bbffbb 12 
FETT tT 63 
bf ff fb 30 
bffffb 30 
bfbbfb 18 
bfbbfb 18 
bfbbfb 18 


Fig. 6.11. 
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This definition can replace the existing definition of any of the 
Atmos’s characters. So, for example, you could replace the ‘A’ witha 
man shape by: , 


Ah, 
19 POKE 46980+ASC(“A”)*8+9, 12 
20 POKE 46980+ASC(“A”)*8+ 1,12 
30 POKE 46980+ASC(“A”)*8+2,63 
40 POKE 46089+ASC(“A”)*8+3,30 
50 POKE 46980+ASC(“A”)*8+4, 30 
6 POKE 46980+ASC(“A”)*8+5, 18 
70 POKE 46980+ASC(“A”)*8+6, 18 
80 POKE 46980+ASC(*A”)*8+7, 18 
99 PRINT “A” 


It is possible to shorten this section of program by storing the eight 
values ina DATA statement but the form given above makes clear 
the method of redefining each row of dots in turn. It is easy to enter 
using the Atmos’s editing facility. Notice that after you have run this 
program, the A in every line displays as the little man shape. The 
reason for this is that once you have defined a character the 
definition holds until you either redefine it or switch the machine 
off. 

User-defined graphics characters are most useful for producing 
the special shapes that are so essential to any sort of games program. 
For example, a large dot character could be used as a ball, etc. 
However, there are some serious uses of user-defined graphics 
characters, such as showing mathematical or chemical formulae on 
the screen. In practice useful characters such as the letter A would 
not be redefined; instead characters that are less often used, such as 
@, or characters in the graphics set would be redefined. Remember 
that any and all of the Atmos’s character set can be redefined. 


Double height characters 


If you look back at Table 6.1 you willsee that attribute codes 10 and 
11 produce double height characters. Unfortunately things are not 
quite as simple as the existence of a double height attribute code 
would suggest. What actually happens following a double height 
attribute code depends on whether the line number is even Le., 
0,2,4..., or odd, 1,3,5...On lines with odd line numbers, only the top 
half of a character is displayed but enlarged to twice normal size so 
as to fill the space that a normal character would take. On lines with 
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even line numbers, only the bottom half of a character is displayed, 
once again enlarged to twice normal size. You should be able to see 
that to produce a complete character twice normal size you have to 
print the same attribute code and characters twice, once on an odd 
numbered line and once on an even numbered line. For example to 
print the letter A at twice normal size: 


19 CLS 

20 PRINT 

30 PRINT CHR§(27);"JA” 
4 PRINT CHR§(27);“JA” 


where the attribute code for double height standard characters is 
produced by ESC,J. Line 2 is required to throw a line of space so 
that printing starts on line |, an odd line, and the top half of the letter 
is printed first. 

Although PRINTing everything twice is a workable way of 
getting double height characters, it is tedious. Fortunately the Atmos 
provides a facility to PRINT everything twice automatically. 
Following a CTRL D ora PRINT CHR&§(4); everything PRINTed 
on the screen appears on two lines. To see this, press CTRL and D at 
the same time, then move the cursor up to roughly the middle of the 
screen and you will discover that any key you press produces output 
on two lines. To remove this double printing, simply press CTRL 
and D at the same time again. The auto double printing facility can 
now be combined with the double height attribute code to produce: 


1g CLS 

20 PRINT 

30 PRINT CHRS(4); 

4) PRINT CHR§(27);“JA” 


which will print the letter A in double height without explicitly 
printing it twice. Notice that even following CHR§(4) it is important 
to start printing on an odd line number. You could of course 
combine lines 2 and 39 into a single print statement. After running 
this program, press CTRL and D together to restore normality. 


Flashing characters 
All of the Atmos’s characters, standard, graphics and double height, 


can be produced as flashing characters. Attribute code 12 produces 
normal height standard flashing characters, code 13 standard sized 
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flashing graphics characters, codes 14 and 15 produce double height 
standard and graphics flashing characters respectively. Using these 
attribute codes is easy and the only point to notice is that they work 
in combination with the foreground and background colour codes 
to produce flashing characters in a range of colours, for example: 


10 CLS 

20\ INK 1 

30 PAPER 7 

40 PRINT CHR$(27);“LHELLO” 


produces a red flashing HELLO. 


Inverse colours 


One of the biggest problems in using Atmos colour graphics is that if 
you want a single character to be a different colour from everything 
else on the screen, then it has to be surrounded by two spaces; a 
leading space in the form of an attribute code that sets the new 
foreground colour and a trailing space in the form of an attribute 
code that resets the foreground colour. If you also want to change 
the background colour then you would have to add another two 
spaces. The need to use attributes in this way limits how close two 
different coloured characters can be ona single line. For example, if 
you had a green rocket ship and a red rocket ship, the closest that 
they could approach horizontally without changing colour is one 
character — a green or a red attribute code would always have to be 
between them! 

There is one way of changing the colour of a shape, however, that 
doesn’t depend on using serial attributes. If CHR$(x) is a character 
that is being displayed in the current foreground and background 
colours, CHR$(x+128) will be displayed in the inverse foreground 
and background colours. The PRINT statement will convert 
characters with ASCII codes greater than 127 into attribute codes, 
so the PLOT command has to be used. For example try: 


1g CLS 

20 INK 2 

30 PAPER 4 

40 PLOT 4,5,CHRS(65) 

50 PLOT 4,6,CHRS$(65+128) 
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will PLOT the letter A (ASCII code 65) in green on blue and then 
line 50 will PLOT the letter A in inverse colours, which happen to be 
magenta on yellow. This facility is very useful in that no attribute 
need be stored to the left of the character to bring about the colour 
change, but the range of changes is limited. The inverse of each 
colour can be seen in Table 6.2. 


Table 6.2. Colours and their inverses 


Colour Inverse 
black white 
red cyan 
green magenta 
yellow blue 
blue yellow 
magenta green 
cyan red 
white black 


The main use of inverse colour is to produce large single coloured 
areas or blocks rather than individual characters. The reason for this 
is that both the background and the foreground colours are changed 
and this makes the character location visible as a small solid 
rectangle as in the above example. 


Changing a single character location 


It is very often the case that the attribute code stored in a single 
character location has to be changed to bring about a colour change 
in a number of characters to its right. To make this easy the Atmos 
provides a special version of the PLOT command: 


PLOT X,Y,‘attribute code’ 


which will store ‘attribute code’ at the screen location given by X and 
Y. So, for example, PLOT 5,10,17 will store attribute code 17 (a red 
background) in line 10 at column 5. Notice that the only difference 
between this form of PLOT and the one that we have been using is 
that the code doesn’t have to be converted to a string. That is PLOT 
5,10,17, produces the same result as PLOT 5,10,CHR$(17) and may 
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be considered simply as a shorthand for the longer form. 


Using graphics in games 


We are now in a position to use graphics in programming 
applications. However a program using what we’ve learned in this 
chapter is held over until after we’ve considered sound, an 
indispensable adjunct to writing exciting games. 


Chapter Seven 
Sound and Games 


The Atmos has a bewildering range of commands concerned with 
sound. As well as the general purpose PLAY, SOUND and MUSIC, 
it also has a number of pre-programmed sound effect commands 
such as EXPLODE, SHOOT, etc. These pre-programmed sounds 
are attractive and easy to use. However, it can take quite a lot of 
ingenuity to produce sounds worth listening to using the general 
commands. The Atmos’s sound generator is a sophisticated device, 
with three tone channels and one noise channel and this is reflected 
in the number and complexity of its BASIC sound commands. In 
the first part of this chapter we will examine some of the ideas 
involved in using sound to good effect. In the second part, an 
example of a game involving both sound and graphics will be 
presented and explained. Although most of this game could have 
been written at the end of Chapter Six, it is remarkable how much 
excitement can be added to a game by the careful use of sound. 


PLAY, SOUND and MUSIC 


One of the confusing things about Atmos sound is that the three 
commands seem to be too many in that they duplicate each other. 
This is far from true; each command has a very clear purpose and use 
and once this is understood things become easier. The badly named 
PLAY command doesn’t actually produce any sound whatsoever, it 
merely controls the type of sound the other two commands, 
SOUND and MUSIC, will produce. SOUND is the fundamental 
command that will start the Atmos’s loudspeaker producing tones or 
noises. MUSIC is a slightly more refined command that, while only 
allowing you to control the tone channels also, lets you specify the 
pitch in terms of the familiar musical scale. To summarise: 
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PLAY defines the type of sound produced 
SOUND produces a tone or noise of a given pitch 
MUSIC produces a tone from the musical scale 


This means that the procedure in any sound program is first to use 
the PLAY command to define the type of sound that you want to 
produce and then to use either SOUND, if you are producing sound 
effects or using the noise channel, or MUSIC, if you are playing a 
tune or don’t want to use the noise channel. 

The action of the PLAY command is best explained with 
reference to the MUSIC command because it avoids any 
complications with the noise channel (which is discussed later). The 
syntax of the simplest form of the PLAY command is: 


PLAY channel,0,0,0 


where ‘channel is a number from 0 to 7 indicating which of the tone 
channels is ‘on’ according to Table 7.1. 


Table 7.1 
Channel Effect 


No channel on 
Channel | on 
Channel 2 on 
Channels | and 2 on 
Channel 3 on 
Channels | and 3 on 
Channels 2 and 3 on 
All three on 


NYDN WN— CO 


(If you know about binary numbers you will notice that ‘channel is 
simply a three bit number with b0 controlling channel 1, bl 
controlling channel 2 and b2 controlling channel 3.) Only channels 
that have been turned on using PLAY can actually produce any 
sound although, as we shall see, even channels that are turned off 
take notice of MUSIC commands. The syntax of the MUSIC 
command is: 


MUSIC channel,octave,note, volume 


where ‘channel’ is a number between | and 3, ‘octave’ is a number 
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between 0 and 6, ‘note’ is anumber between | and 12, and ‘volume’ is 
a number between | and 15. The MUSIC command will set the 
specified tone channel to produce a note at a pitch given by ‘octave’ 
and ‘note’ at a volume specified by ‘volume’. On the subject of 
volume, | gives the quietest sound, 15 the loudest. The way that 
‘octave’ and ‘note’ work together to define the pitch of the sound is 
not difficult to understand if you have even a slight knowledge of 
music. 

The western musical scale is divided into 12 notes each a semitone 
apart — giving the so called ‘chromatic scale’. If you start playing this 
scale and reach the top note, then instead of going off into the 
musical wilderness when you play the next higher note, all that 
happens is that the scale repeats itself but at a higher pitch — or, in 
other words, in the next octave. The fundamental pitch of the scale 
that the Atmos produces is set by the value of ‘octave’ and the 
particular note is selected by ‘note’. So, for example, the following 
program will play the chromatic scale in each of the octaves that the 
Atmos can produce: 


1d PLAY 1,0,0.0 

20 FOR O=0 TO 6 
30 FOR N=1 TO 12 
4) MUSIC 1,0,N,10 
50 WAIT 30 

6 NEXT N 

7 NEXT O 


Line 1 turns tone channel | on and then lines 20 to 7 play each 
note at each octave. The only other point worth mentioning is that 
the WAIT command in line 5@ is necessary to set the time that each 
note lasts for. The command: 


WAIT n 


will cause the Atmos to wait for n*10 milliseconds. Rather than 
sounding a note for a specified time the Atmos will continue sounding 
a note until it is instructed to produce another or until all the tone 
channels are turned off using PLAY 0,0,0,0. 

You may be wondering why you have to specify the tone channel 
that you want to use in both a PLAY command and a MUSIC 
command. Surely mentioning the channel in just one command 
would have been enough? The answer is ‘no’ if you want to play 
chords! The MUSIC command sets a tone channel to a given 
frequency and a given volume even if the channel is off so that you 
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cannot hear it. If you want to play a chord so that all the notes start 
together the obvious way to do it is to switch all the channels off, set 
the pitch and volume of each one and then turn them all on witha 
single PLAY command. Try, for example: 


1 MUSIC 1,3,11,10 
20 MUSIC 2,19,3,10 
30 MUSIC 3,19,7,10 
4) PLAY 7,0,0,0 


Lines 19 to 30 set up the pitch and volume for three notes and then 
line 40 switches all three channels on together, producing a 
harmonic chord. 

The SOUND command works in much the same way as the 
MUSIC command, apart from the additional feature of being able 
to control the noise channel as well as the tone channels. The syntax 
of the SOUND command is: 


SOUND channel, pitch,volume 


where ‘channel’ is a number between | and 6, ‘pitch’ is a number 
between 0 and 65536 and ‘volume’ is a number between | and 15. 
Once again values of ‘channel’ between | and 3 select one of the tone 
channels. However, now the pitch of the note is controlled by a 
single number, ‘pitch’, which gives a high-pitched note for 0 and 
lower pitches as the value increases. Although the command will 
accept a huge range of values for ‘pitch’, in practice you will find that 
values between | and 300 are the most useful. Above this range all 
the notes sound the same! Apart from this difference in the way that 
the pitch is specified you can use the SOUND command in exactly 
the same way as the MUSIC command. What sets the SOUND 
command apart from MUSIC is its ability to control the noise 
channel and this is discussed in a later section. 

If you know a little bit about music theory then you can use 
MUSIC to write your own tunes. However, if you would first of all 
like to hear what the Atmos can do on its own try: 


1 PLAY 1,0,0,0 

20 MUSIC 1,INT(RND(1)*7), INT(RND(1)*12+1),10 
30 WAIT 5 

4 GOTO 20 


which uses the MUSIC command to produce a random note ina 
random octave. The noise that this program produces is interesting 
at first but soon becomes boring. The trouble is that music which is 
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too random just doesn’t sound interesting. Although it is very 
difficult to introduce enough order into the computer-generated 
music to make it sound anything like traditional music, you can see 
the overall effect of increasing the order if you try the following 
program: 


1? PLAY 1,0,0,0 

20 O=4 

30 N=6 

4) MUSIC 1,0,N,19 

50 N=N+SGN(I-RND(1)*2) 

69 IF N>12 THEN N=1:0=O+1 
79 IF N<1 THEN N=12:0=0-1 
80 IF O<@ THEN O=9 

99 IF O>7 THEN O=7 

190 WAIT 5 

119 GOTO 46 


This plays a infinite sequence of notes that go either up or down by 
one semitone at most and sounds just a little more like music than 
the first program. In fact it is not a bad imitation of the Flight of the 
Bumble Bee! Before leaving the subject of random music, it is 
interesting to hear the effect of changing the note length in each of 
the above programs. You can do this by changing the value of the 
WAIT in each program. 

Instead of random music you might feel that being able to play the 
Atmos is a better idea and indeed it is not difficult to turn the Atmos’s 
keyboard into a musical keyboard! Try the following simple 
program: 


19 DATA 1,3,5,6,8, 19,12, 1,3 
20 DATA 3,3,3,3,3,3,3,4,4 
30 DIM N(9) 

49 DIM 0(9) 

5@ FOR I=1 TO 9 

69 READ N(I) 

10 NEXT I 

80 FOR I=1 TO 9 

99 READ O(1) 

190 NEXT I 

119 PLAY 1,0,0,0 

120 GET AS 

130 MUSIC 1,0(VAL(A$)),N(VAL(A$)), 10 
149 GOTO 120 
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This will allow you to play notes with the top row of number keys 
from | to 9. It works by continually scanning the keyboard using 
GET. Each number is entered as a string variable and is then 
converted from a string to a number by the VAL function which in 
some sense is the reverse of the STR$ function described in Chapter 
Four. While STR§(n) will convert the number, n, into a string of 
digits, VAL(s) will convert a string of digits, s, into a number. The 
arrays ‘N’ and ‘O’ hold the note and octave numbers for the scale. 
You should now be able to write a program to make every key on the 
keyboard produce a different note. What is more difficult is to find 
an arrangement of keys and notes that makes the Atmos easy to play! 


Programming tunes 


Programming either well-known tunes or even tunes that you have 
composed is all a matter of working out the sequence of notes and 
their durations. This is easy if you have the tune written down. If you 
can find middle C on the music stave then a note drawn on this line 
corresponds to octave 3 and note |. Moving up or down by one place 
on the stave increases or decreases the note number by 2 or 1 
(remember to change the octave number if the note number becomes 
less than | or greater than 12) (see Fig. 7.1). The reason for this is 
that notes sometimes differ by a whole tone and sometimes by only a 
semitone. The pattern of tone/semitone differences is easy to 
remember because it is exactly the same as the arrangement of black 


ea 

F 4 6 

Treble Clef Eo A 
D 4 3 

C 4 1 

B 3 42 

A 3. 10 

G 3 8 

F 3 6 

E 3 5 

D 3 3 

Ledger line C 3 1 Middle C 


Fig. 7.1. 
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and white notes on the piano. For example, starting from C gives the 
following pattern of tone/semitone differences: 


C D E F G A B Cc 
ab Uh S T T T S 


An additional trouble is that most music involves sharps and flats. 
These are easy to deal with once you realise that a sharp raises the 
value of the note by oneand a flat lowers it by one. For example, C is 
1, C sharp is 2 and C flat is 12 in the octave below. The only thing 
that you have to remember is that if a note is shown as sharp or flat at 
the start of the music (i.e. in the key signature) then it and all its 
octaves must be sharpened and flattened. 

The well-known beginning of Hearts of Oak, apart from being a 
good tune, could form the basis for a jingle suitable for a game 
involving ships. The first eleven notes can be seen in Fig. 7.2 and 
converting them to pitch values is easy enough. The three sharp signs 


EA A A A C¥#B A GFA E 
| 3 3. 33 3 4 3 3 3 3 3 
5 10 10 10 10 2 12 10 9 7 5 


Fig. 7.2. Hearts of Oak. 


at the beginning apply to all Gs, Fs and Cs in the tune and this rule is 
best applied by writing the name of each note underneath and then 
writing a sharp sign by each G, F and C. The pitch values are then 
assigned, using Fig. 7.1, remembering to add four for asharp. When 
converting tunes that have flats in their key signatures you have to 
subtract one every time a flattened note is played. The resulting pitch 
values can be seen under the name of each note in Fig. 7.2. Only one 
thing now keeps us from hearing Hearts of Oak and this is the 
problem of how long each note should be sounded for. Fortunately, 
musical notation is rigorously logical (after all it was one of the first 
programming languages)! Time is divided into intervals and a plain 
ordinary note, like the first in Hearts of Oak, should last one 
interval. The time that a note lasts is shortened by the number of 
streamers drawn on its tail. Each streamer halves the length of the 
note. For example, the fourth note has two ‘streamers’, the first of 
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which shortens it to half an interval and the second reduces it to a 
quarter. The only complication is that a dot following a note is an 
instruction to lengthen it by half the time that it would normally last 
(it makes you wonder how musicians cope!). So the third note would 
normally be one half a time interval but because it is followed by a 
dot it has to be sounded for one half plus one quarter i.e. three- 
quarters. Translating this musical notation into fractions of the time 
interval, gives the results written under the pitch values in Fig. 7.2. 
There are two notes that do not occur in Hearts of Oak that have to 
be sounded for twice as long and four times as long. These are 
included in Fig. 7.3, along with all the other note values. 


Note Time 


4 


ene yee a 0 


Fig. 7.3. Lengths of notes. 


The time has come to start programming! Each note of the tune 
now has two numbers associated with its pitch and one with the time 
that it should sound. This information is best stored ina DATA 
statement and then read into three variables — one for octave, one for 
note number and one for duration. Try the following: 


19 DATA 3,5,1,3,10,2,3,10,.75,3,1,.25,3,10,1,4,2,.75 

20 DATA 3,12,.25,3,10, 1,3,9,.75,3,7,-25,3,5, 1.5,999,999,999 
30 TEMPO=5 

4 PLAY 1,0,0,0 

5@ READ O,P,T 

6 IF P=999 THEN STOP 

70 MUSIC 1,0,P,19 

80 WAIT T*TEMPO 

99 GOTO 50 
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The DATA statement is terminated by three values of 999 and this is 
used to detect the end of the tune. The variable ‘TEMPO.’ sets the 
length of the fundamental time interval, in this example half a 
second, but you might like to experiment with other values. 


Resting 


You may think that the notes of the tune Hearts of Oak played by the 
previous program are a little run together. The solution to this 
problem is to insert a pause between each note. This can be done by 
switching the sound off using the PLAY §,0,0,0 command in 
between each note and then WAITing a short time. For example, 
add: 


75 PLAY 1,0,0,0 
85 PLAY 9,9,0,0 
86 WAIT | 


to the previous program and the improvement is immediate! You 
can use the PLAY @,0,0,@ command together with WAIT to leave 
pauses or rests in any sequence of notes. 


Pre-programmed sound effects 


The Atmos provides four different pre-programmed sound effect 
commands - EXPLODE, PING, SHOOT, and ZAP. Producing 
these sounds in a program is simplicity itself — just use the 
appropriate command and follow it by a WAIT that is sufficiently 
long to allow the sound to come to an end naturally. If you want to 
carry on doing some computing while the sound effect is being 
produced then you can omit the WAIT as long as you don’t try to 
produce another sound until the current one has ended. The biggest 
problem with the pre-programmed sounds is that you cannot alter 
their volume and they tend to be very loud. Although each of the 
sounds has a name that suggests its application, e.g. ZAP is the sort 
of noise that a laser gun makes, it is worth considering them for 
other applications. For example the EXPLODE sound make a very 
good imitation of something falling in water when added to 
appropriate graphics! 
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The sound of noise 


The Atmos’s sound generator has a single noise channel that can be 
played on its own or mixed with any of the three tone channels. To 
use the noise channel we first have to turn it on using a slightly 
extended form of the PLAY command: 


PLAY tone channel,noise channel,0,0 


The ‘tone channel’ part of the command selects a combination of 
tone channels as before. The new part of the command is ‘noise 
channel’ which is a number between 0 and 7 with the same meaning 
as ‘tone channel’ except that it selects the combination of channels 
that the noise source will be mixed with. This idea of mixing the 
noise channel with the tone channels is the most difficult Atmos sound 
feature to understand. If the noise channel is mixed witha particular 
tone channel then any sound command which refers to that channel 
will also produce the noise source and, as we shall see in a moment, 
any reference to the noise channel will also produce the tone 
channel. You can deduce from this that to produce a pure tone ona 
channel you must not have selected it as a channel to be mixed with 
the noise channel. Likewise if you want to produce pure noise you 
must have switched off the tone channel that it is being mixed with. 
Before we look at some examples, it is necessary to extend the 
SOUND command so that it can set the ‘pitch’ of the noise channel. 
This is quite easy as the syntax of the SOUND command stays the 
same, but the ‘channel’ number used previously increases its range to 
1 to 6. Channel numbers from | to 3 set the pitch of the 
corresponding tone channel but numbers from 4 to 6 set the pitch of 
the noise channel. For example, if you have used a PLAY command 
that mixes the noise channel with tone channel | then SOUND 
4,20,4 will set the noise channel to a pitch of 20 and allow you to hear 
the noise along with the tone on channel | if it is switched on. 
However SOUND 1,20,4 will set the tone channel to a pitch of 20 
and allow you to hear the noise channel and the newly set tone 
channel if it is switched on. The only problem is that the idea of a 
noise channel having a ‘pitch’ is an odd one! In fact the noise channel 
can produce a ‘shhhhhhing’ noise at any of 32 pitches. For example, 
to hear the noise channel on its own at each of its pitches all we have 
to do is mix it with tone channel | and then turn this tone channel 
off: 
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19 PLAY @,1,0,0 
20 FOR I=@ TO 31 
30 SOUND 4,1,10 
40 WAIT 5 

50 NEXT I 

60 GOTO 29 


Line 1 turns tone channel | off and mixes the noise channel with it. 
Lines 29 to 50 change the pitch of the noise channel and allow you to 
hear the whooshing effect produced. To see, or rather hear, the effect 
of not turning the tone channel off change line 19 to PLAY 1,1,0,9. 
Now you will hear the same noise channel changing pitch and 
making the whoosing but you will also hear a tone of constant pitch 
~ this is the tone on channel |. You can independently change the 
pitch on both channels without any trouble. To hear this add: 


35 SOUND 1,31-I,10 


to the program along with the change to the play command and, if 
you can stand the head-spinning noise that results from the noise 
channel rising in pitch while the tone channel falls, you are obviously 


cut out to be a researcher into Atmos sound! 
The noise channel is the obvious source of most sound effects. For 


example, the whooshing noise in the last program would make a 
good rocket take off sound and the EXPLODE sound is clearly 
based on the noise channel. The two main ways of making the new 
effects are by manipulating the noise pitch and the noise volume. 
For example, try: 


1p PLAY 0,1,0,0 
20 SOUND 4,2,8 
30 WAIT 19 

4 SOUND 4,20, 12 
50 WAIT 5 

60 GOTO 20 


which produces a noise like a helicopter by sounding noises of 
different pitch and volume. However, if you really want to play with 
sound then you cannot ignore the last feature that the Atmos offers — 


the envelope. 
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The PLAY command has one last surprise in store for us. The last 
two parameters can be used to select one of seven predefined volume 
envelopes and durations. This gives the full and final form of the 
PLAY command as: 


PLAY tone channel,noise channel,envelope,envelope duration 


A volume envelope is not a difficult idea, it is simply a graph of 
volume with time but it can be difficult to know what any given 
envelope sounds like. Fortunately the Atmos reduces the choice to a 
manageable 7 (see Fig. 7.4) selected by the value of ‘envelope’ in the 
PLAY command. The first two are ‘finite length’ envelopes, that is 


Fig. 7.4. Envelopes. 


they do not change the volume of the note in a periodic manner but 
have a definite start and a definite end. The first one rises sharply 
and then declines slowly, the second rises slowly and then declines 
quickly. To make a sound whose volume is controlled by either of 
these envelopes, all you have to do is use a PLAY command that 
specifies the envelope and turns on the tone or noise channel in 
question. Then any SOUND or MUSIC command which specifies a 
volume of zero will use the specified envelope. For example, to hear 
the effect of envelope | try: 


10 PLAY 1,0,1,100 
20 SOUND 1,50,0 
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30 WAIT 3 
4 GOTO 19 


Notice that to make the envelope repeat it is necessary to carry out 
the PLAY command each time. The last parameter in the PLAY 
command alters the duration of the envelope. In other words, it 
alters how long it takes the note to die away for envelope | or how 
long it takes the note to build up to full volume in envelope 2. There 
is no choice but to experiment with this parameter to get the effect 
that you want. Long times give echoes or warbles and short times 
give percussive or rough sounds. 

The final five envelopes are periodic, that is they repeat the same 
overall envelope shape until a PLAY 0,0,0,0 command silences the 
channel in question. The effect of the envelope duration is much 
more difficult to gauge for these envelopes in that it alters the repeat 
rate. Try: 


1 PLAY 1,0,4,100 
20 SOUND 1,89, 


which give a fast repeat and then replace line 19 by 
PLAY 1,0,4,500 


which gives a slower rising and falling of volume. It is important to 
keep in mind that an envelope only alters the volume of a note - the 
pitch is always determined by the SOUND or MUSIC command. 
You can use envelopes with the noise channel just as easily. To hear 
an example try: 


10 PLAY @,1,4,100 
20 SOUND 4,200 


which produces a familiar sound using only the noise channel. 


Pitfalls 


The Atmos’s sound commands are very logical and as longas you keep 
a clear head they are easy enough to use. There are some common 
mistakes, though, that are worth looking out for. For example, the 
keyboard bleep will interfere with any sounds that you have gone to 
a lot of trouble to produce, so it is always a good idea to turn it off 
with a CTRL and F. Another common problem is getting the 
envelope duration so short that it introduces a low frequency buzz 
rather than changing the volume. 
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There is no easy way to predict what sort of noise a sound 
program will produce when you run it, but after some practice and 
experimentation you will get better at guessing! 


Attack the saucer - the SCRN function 


The game listed below uses most of the BASIC commands that have 
been introduced in this chapter and Chapter Six. 

19 LORES @ 

20 GOSUB 1906 

30 FOR X=2 TO 38 

49 GOSUB 200 

50 GOSUB 3000 

69 PLOT X,25,CHR$(3)+*@” 

70 NEXT X 

80 FOR X=38 TO 2 STEP —1 

99 GOSUB 2000 

100 GOSUB 3000 

119 PLOT X,25,CHR&(3)+“@ ” 

120 NEXT X 

130 GOTO 30 


1000 T=15 

1019 F=0 

1920 FX=10 

1930 FY=10 

1940 POKE 46080+ASC(“@”)*8+0, 12 
1950 POKE 46080+ASC(“@”)*8+ 1,12 
1960 POKE 46080+ASC(“@”)*8+2, 12 
1970 POKE 46980+ASC(“@”)*8+3, 12 
1080 POKE 46080+ASC(“@”)*8+4, 30 
1090 POKE 46080+ASC(“@”)*8+5,63 
1100 POKE 46080+ASC(“@”)*8+6,0 
1116 POKE 46080+ASC(“@”)*8+7,0 
1120 FOR I=0 TO 7 

1130 POKE 46080+ASC(“$”)*8+1,INT(RND(1)*64) 
1149 NEXT I 

1150 RETURN 


2000 FS=KEY$ 
2019 IF F$="” THEN RETURN 
2020 PLOT FX,FY,“” 
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2030 FX=X 
2040 FY=25 
2050 F=1 

2060 RETURN 


3000 T=T+SGN(RND(1)*2-1) 

3019 IF T<5 THEN T=T+1 

3020 IF T>25 THEN T=T-1 

3030 PLOT T,5,CHRS(1)+"*** ” 

3049 IF F=@ THEN WAIT 5:RETURN 

3050 PLOT FX,FY,* ” 

3060 FY=FY-1 

3070 PLOT FX-1,FY,CHRS(7)+"*” 

3080 PLAY 1,0,0,0:SOUND 1,FY*4,10 

3090 IF FY<4 THEN F=@:PLOT FX,FY," ”:PLAY 0,0,0,0: 
RETURN 

3100 IF SCRN(FX,FY-1)<>ASC(“*”) THEN RETURN 

3110 GOSUB 4000 

3120 F=0 

3130 RETURN 


4000 EXPLODE 

4019 FOR I=1 TO 1 

4920 PLOT FX-1,FY,CHRS(INT(RND(1)*8))+*$” 
4030 PLOT FX,FY,* ” 

4040 NEXT I 

4050 RETURN 


The game itself is relatively straightforward to play. An alien flying 
saucer, in the form of three asterisks, moves rather jerkily across the 
screen. A ship, whose purpose is to attack the alien, moves rapidly 
backwards and forwards at the bottom of the screen. A missile can 
be launched at any time from the attacking ship by pressing any key. 
Once a missile has been fired it moves up the screen accompanied by 
a whistling noise, increasing in pitch, until it either misses the saucer 
or hits it with a resulting explosion. If at any time during the flight of 
a missile another key is pressed, then the first missile is erased from 
the screen and a new missile fired at the saucer. 

The program has been written as a small collection of subroutines 
and is not particularly difficult to understand. It is easier to follow 
the main part of the program after a description of each subroutine. 
Subroutine 190 sets up the user-defined graphics character for the 
attacking ship (lines 1040-1110) and the explosion (lines 1120-1149). 
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The attack ship is defined using the method described in Chapter Six 
but the explosion is defined as a random pattern of dots using a FOR 
loop. Subroutine 1909 also initialises some of the variables used in 
the rest of the program. 

Subroutine 200@ checks to see if any key has been pressed and 
fires the missile. If no key has been pressed then control is returned 
to the main part of the program (line 2010). If any key has been 
pressed then any existing missile is removed from the screen by 
PLOTting a blank (line 22Q) at the current missile position stored 
in ‘FX’ and ‘FY’. Then the current missile position is set to the 
current position of the attacking ship (lines 2030-2049) and variable 
‘F’ is set to | to indicate that a missile has been fired and is in flight. 

Subroutine 3600 moves the saucer a random amount to the right 
or left, prints the missile if one is in flight and checks to see if it has hit 
the saucer. Lines 3600-3030 are responsible for moving the saucer. 
Notice the checks to stop it from moving off the edge of the screen in 
lines 3019 and 3020. The printing of the saucer in line 3030 also 
serves to remove the old saucer from the screen because of the 
attribute code at the left-hand end of the string of asterisks and the 
space at the right-hand end. Lines 3040-3089 look after moving the 
missile. Line 3049 checks to see if there is a missile in flight (i.e.. 
F=1). If there isn’t, control is passed back to the main part of the 
program. The WAIT instruction is included to make the attack ship 
move at the same rate even if there isn’t a missile in flight. Lines 
3060-3070 move the missile up the screen by one line. Line 3060 
blanks out the old missile and line 3079 prints it at its new position. 
Line 3080 makes a sound that increases in pitch as the missile moves 
higher up the screen. Lines 3099-3109 test to see if the missile has hit 
or missed the saucer. Line 3099 checks to see if the missile’s position 
is such that it has passed the saucer and is about to go off the screen. 
If this is the case, a blank is printed to remove the missile and the 
variable ‘F’ is set to zero to indicate that there are no missiles in 
flight. Line 319@ uses the SCRN function to discover which 
character is at the next screen location that the missile will move 
into. It is used in line 3109 to discover if the character just above the 
missile is an asterisk. The function: 


SCRN(X,Y) 


returns the ASCII code of the character at screen location X,Y. If it 
is, then the missile is about to hit the saucer and the explosion sub- 
routine 4009 is called. 

Subroutine 4009 will produce an explosion at X,Y by printing an 
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explosion character in random colours while making a sound using 
EXPLODE. 

Now that all the subroutines have been described, the working of 
the main part of the program is easy to understand. First, subroutine 
1000 is called to initialise everything. The main work of the program 
is done by the two FOR loops 39-79 and 89-120. The first FOR loop 
moves the attack ship to the right one place at a time. Each time the 
attack ship moves, subroutine 200@ is called to check for a ‘fire 
missile’ command and subroutine 3909 is called to move the saucer 
and the missile. The second FOR loop moves the attack ship to the 
left but otherwise it is identical to the first FOR loop. Notice the way 
that each PLOT command includes a foreground attribute code to 
set the colour of the shape. Using this simple method the saucer is 
red, the attack ship is yellow and the missile is white. 

This concludes the description of this short games program. If you 
study it to the point that you are sure that you understand it, the way 
to find out if you’re right is to try to modify it! The game would be 
made much more exciting by the addition of only a few very simple 
features. You could, for example, add a routine to keep a score of the 
number of saucers hit, or give the attacking ship only a limited 
number of moves before the saucer fires a missile back at it! Try 
experimenting with these suggestions and your own ideas. After all, 
the only way to learn to program is to program! 


Chapter Eight 
High Resolution Graphics 


The Atmos’s high resolution graphics makes it possible to draw witha 
resolution of 240 points horizontally by 200 points vertically. This 
makes it easy to draw fine lines and circles using a range of new ‘high 
resolution’ commands. However, techniques such as user-defined 
graphics characters are not something to be forgotten in favour of 
this apparently more powerful graphics mode. User defined 
graphics are very often the best way of approaching a project and the 
Atmos allows us to have the best of both worlds by allowing mixing of 
high resolution and low resolution techniques. 

The Atmos’s high resolution screen uses the same method of 
controlling colour, that is serial attributes, as the text screen and this 
reduces the colour resolution to 40 horizontal ‘blocks’ by 200 lines. If 
you understand the way that low resolution colour works you 
should have no trouble with high resolution colour. 


The high resolution screen 


The Atmos uses a very similar method to produce high and low 
resolution graphics. However the high resolution screen is distinct 
from the text or low resolution screen. To change to the high 
resolution screen all that is necessary is to use the command: 


HIRES 


This instructs the Atmos to use the extra memory set aside for the high 
resolution screen. If you enter HIRES in direct mode you will 
discover that not all of the high resolution screen is high resolution — 
there are three lines text at the bottom. This is very useful because 
you can use these lines to give messages during high resolution 
programs. 

High resolution graphics differ from low resolution graphics in 
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that it is possible in high resolution graphics to use commands that 
will change the colour of a single point on the screen. Text or low 
resolution commands only allow you to change all of the dots within 
a character location i.e. a rectangle 6 dots wide by 8 dots high. If you 
are going to use commands that change a single point then there 
must be some way of defining which point. In the same way that a 
character location was picked out in low resolution graphics by 
giving its column and line number you can pick out a single point in 
high resolution graphics by stating which column and row of dots it 
is in. The columns of dots are numbered from zero starting at the far 
left, and so the column number, or x co-ordinate as it is called, 
ranges from 0 to 239. (Recall that there are 240 dots horizontally.) 
The rows of dots are numbered from zero starting at the top of the 
screen and so the row number, or y co-ordinate as it is called, ranges 
from 0 to 199. (There are 200 dots vertically.) Any dot on the screen 
can be specified by giving two numbers, its x co-ordinate and its y 
co-ordinate. It is usual to write these two numbers as a pair with the 
x co-ordinate first. So 0,0 specifies the dot in the top left-hand corner 
and 239,199 is the bottom right-hand corner. After a little practice 
using x,y co-ordinates will become second nature. 

The only other thing to know about the high resolution screen at 
this stage is how to get rid of it! If you want to return to the text 
screen then simply use the command: 


TEXT 


Similarly LORES § or LORES | will return you to the text screen 
initialised for low resolution graphics with the standard character 
set or the graphics characters set respectively. 


CURSET and the graphics cursor 


The high resolution graphics commands are easier to understand 
when they are working with only two colours and soa consideration 
of high resolution graphics in colour is left to a later section. Just as 
with low resolution graphics there are two sorts of dots onthe Atmos’s 
high resolution screen — foreground dots that show in the current 
foreground colour and background dots that show in the current 
background colour. 

When you first change to high resolution graphics using the 
HIRES command the Atmos sets the foreground colour to white and 
the background colour to black! 
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The simplest high resolution command is: 
CURSET X,Y,FB 


This changes the dot at the x co-ordinate given by X and the y co- 
ordinate given by Y to either a foreground dot or a background dot 
depending on the value of FB. The action of FB is: 


value of FB 


) Change dot to background 
| Change dot to foreground 
2 Invert dot 

3 Do nothing 


The first two values of FB are easy enough to understand: 
CURSET X,Y,@ 

changes the dot at X,Y, to a background dot and: 
CURSET X,Y,1 

changes the dot at X,Y to a foreground dot. However the action of: 
CURSET X,Y,2 


depends on the existing dot at X,Y. If the dot is initially a foreground 
dot then it will be changed to a background dot. If it is initially a 
background dot then it will be changed to a foreground dot. In this 
sense a value of 3 for FB will cause CURSET to flip or invert the type 
of dot at X,Y. This action is useful if you want to change a point in 
such a way that the change will make it show on the screen even if 
you don’t know its current state. For example, you won’t see the 
effect of setting a point to a foreground point if it is already a 
foreground point! The final value of FB and the action it produces is 
easy to understand but it is difficult to see the need for it. The 
command: 


CURSET X,Y,3 


does not alter the dot at X,Y in any way whatsoever! What it does, 
however, is to move the graphics cursor. The graphics cursor works 
in a similar way to the familiar text cursor but it cannot be seen. It 
generally can be said to mark the position of the last high resolution 
dot to have been referred to in a high resolution command -— 
although there are one or two exceptions to this. So the command: 


CURSET X,Y,3 
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does have an effect — it moves the invisible graphics cursor to the dot 
at X,Y without changing anything on the screen. (Why you might 
want to do this will become clear after the other high resolution 
commands have been introduced.) The other versions of the 
CURSET command, corresponding to values of FB equal to 0,1 and 
2, also move the graphics cursor to the point X,Y. 

Try the following program to investigate and familiarise yourself 
with the way that CURSET works in conjunction with the possible 
values of FB: 


19 HIRES 

20 INPUT X,Y,FB 
30 CURSET X,Y,FB 
4 GOTO 20 


If you enter a value for X and Y that takes the graphics cursor 
outside the screen you will get an ILLEGAL QUANTITY ERROR. 
For an automatic demonstration try: 


1? HIRES 

20 X=INT(RND(1)*249) 
30 Y=INT(RND(1)*200) 
4 CURSET X.Y,1 

50 GOTO 20 


which draws dots at random. 


DRAW and CURMOV 


The trouble with CURSET is that it only changes a single point at a 
time and while it is possible to draw lines and shapes using nothing 
but CURSET it would be tedious. To make a high resolution 
graphics easier to use Atmos BASIC includes: 


DRAW X,Y,FB 


which produces a straight line. The starting position of the line is the 
current position of the graphics cursor and its end is X dots to the 
right and Y dots down. As in the case of CURSET, the value of FB 
determines what happens to the dots that lie on the line. That is a 
value of FB equal to @ will set all the dots on the line to background 
points, a value of | will set them to foreground points, a value of 2 
will cause the dots to be inverted and 3 will leave the dots unchanged. 
Following a DRAW command the graphics cursor is left at the end 
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point of the line. For example, if the last CURSET was CURSET 
0,0,3 which moves the graphics cursor to 0, the command: 


DRAW 190,100,1 


will produce a line of foreground dots from the point 0, to 109,199. 
But if the last CURSET was CURSET 59,5,3 the line would start at 
50,59 and end at 159,159. It is important to notice that DRA W uses 
‘co-ordinates in a way that is completely different from CURSET. 
The command CURSET X,Y,FB moves the graphics cursor to the 
point X,Y and then plots a point. The command DRAW X,Y,FB 
moves the graphics cursor X units horizontally and Y units vertically 
and then draws a line between the old position of the cursor and the 
new. The way that a DRAW uses co-ordinates is usually referred to 
as relative co-ordinates because they are relative to the current 
position of the graphics cursor. The clearest indication that DRAW 
X,Y,FB is different from CURSET X,Y,FB is inacommand suchas: 


DRAW ~10,10,1 


which leaves the graphics cursor 10 units to the left and 10 units 
down. Negative co-ordinates are not allowed in CURSET! 

As an example of the way that relative co-ordinates can make a 
problem easier to solve, consider trying to write a subroutine that 
will draw a rectangle W dots wide and H dots high with its top left- 
hand corner at X,Y. One possible solution is: 


3000 CURSET X.Y,1 
3019 DRAW WO, 1 
3020 DRAW 9,H,1 
3030 DRAW -W.,O, 1 
3049 DRAW ,-H,1 
3050 RETURN 


If you would like to see this subroutine in use then add it to the 
following main program which uses it to draw random rectangles: 


1? HIRES 

20 X=INT(RND(1)*230) 

30 Y=INT(RND(1)*190) 

49 W=INT(RND(1)*(220—X))+1 
5@ H=INT(RND(1)*(180—Y))+1 
60 GOSUB 3000 

7 GOTO 20 


The way that the DRAW command uses relative co-ordinates is 
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very useful for drawing a number of connected lines but it is often 
very difficult to DRAW a line between two given points. However, 
the following combination will draw a line between the point X1,Y1 
and X2,Y2: 


CURSET X1,Y1,FB:DRAW X2-X1,Y2-Y1,FB 


To see the sort of thing that DRAW can do, try the following 
program: 


19 HIRES 

20 FOR I=1 TO 199 STEP 4 
30 CURSET 91,1 

4) DRAW 239-I,-I,1 
5@ CURSET 1,91 

6 DRAW 239-11, 
7 CURSET 9,199-I,1 
80 DRAW 239-11, 1 
99 CURSET 1,199, 1 
199 DRAW 239-1-I,1 
119 NEXT | 


The output from this program is reproduced in Fig. 8.1. You will 
find that you get different effects by altering the values of the STEP 
in line 20. 


Fig. 8.7. String pattern. 
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Relative co-ordinates are so useful that Atmos BASIC has another 
form of the CURSET command that will accept relative co- 
ordinates. The command: 


CURMOV X,Y,FB 


has the same effect as CURSET but the cursor is moved X dots to 
the right and Y dots down. 


CIRCLE 


The command CIRCLE R,FB will draw a circle centred on the 
current position of the graphics cursor and radius R. Once again the 
value of FB determines what will happen to the dots on the circle in 
the usual way. For example: 


CURSET 19,50,3:CIRCLE 49,1 


draws a circle centered at 199,50 and radius 49. As an example of the 
circle command, the following program draws random circles, as 
illustrated in Fig. 8.2: 


1? HIRES 

20 R=INT(RND(1)*50)+1 

30 X=R+INT(RND(1)*(239-2*R)) 
49 Y=R+INT(RND(1)*(199-2*R)) 
5@ CURSET X,Y,3 

69 CIRCLE R,1 

7 GOTO 20 


Fig. 8.2 Random circles. 
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Notice that when drawing random circles you have to be careful not 
to go off the edge of the screen. This is allowed for in this program by 
the inclusion of —2*R in lines 3@ and 49. 


Dotted lines - PATTERN 


Normally when drawing lines or circles the Atmos willdraw solid lines. 
However, you can change to dotted lines of your own design using 
the PATTERN X command. The exact pattern of dots produced 
depends on the value of X. In practice the most useful forms of the 
command are: 


PATTERN 85 Small dots 
PATTERN 51 Larger dots 
PATTERN 31 Even larger dots! 


Other values of X can be used to produce lines with uneven dots and 
dashes but you can try these out and experiment to find something 
that suits your application. 


Using colour - FILL, INK and PAPER 


Colour in high resolution is determined using the same serial 
attribute method familiar from low resolution graphics. However, 
in low resolution graphics the attribute codes were stored ina single 
character location and affected all of the characters to their right and 
on the same line. In high resolution graphics the attributes still affect 
all of the dots to their right and in the same row but where and how 
are the attribute codes stored? The answer lies in the fact that each 
row of dots on the high resolution screen is divided into groups of 
six. These groups are called character cells and they are the high 
resolution equivalent of a character location. Each character cell 
uses one memory location to store the pattern of dots that it 
displays. There is nothing stopping us from storing an attribute code 
in the memory location that normally stores the dot pattern for a 
character cell. If you do store such a code then the effect is similar to 
the low resolution case. The dots that are normally controlled by the 
memory location show as background dots and all the dots to the 
right of them are affected by the attribute. The only trouble is that all 
of the high resolution commands that we have looked at so far 
control single points with no reference to character cells. Storing a 


High Resolution Graphics 129 


value in the memory location that controls the six dots that 
correspond to any given character cell relies on the use of a new 
command, FILL. 

The command FILL 1,1,c will store the attribute code ‘c’ in the 
memory location corresponding to the character cell that the 
graphics cursor is currently in. For example: 


CURSET 6,0,3:FILL 1,1,17 


will store the attribute code 17 (red background) in the memory 
location corresponding to the character cell in the top left-hand 
corner of the screen. The reason for this is that the CURSET 
command first moves the cursor to the first dot in the character cell 
concerned, but it could just as well have been the any of the six. So: 


CURSET X,@,3:FILL 1,1,17 


with X any of 0 to 5 will produce the same effect and result in 
attribute code 17 being stored in the character cell in the top left- 
hand corner. A more striking demonstration can be seen by running: 


1 HIRES 

20 FOR X= TO 199 STEP | 
30 CURSET X,X,3 

4 FILL 1,1,17 

5@ NEXT X 


which moves the graphics cursor one row down and one dot to the 
right each time through the FOR loop and uses the FILL command 
to set a red background. You will notice that the red moves 
horizontally across the screen in jumps of six dots. This illustrates 
the fact that a whole character cell has to be used to store an attribute 
code and so colours can only change on character cell boundaries. 

You can store any of the attribute codes described in Chapter 
Six in any of the character cells using CURSET and FILL. 
However, it is not easy to use full eight colour high resolution 
graphics. For example, suppose you want to plot a single dot in 
yellow irrespective of the colour of any other dot on the screen. To 
make sure it was yellow you would have to use FILL to place a 
yellow foreground attribute code in the character cell immediately 
to its left. If the dot in question is at X,Y then the character cell to its 
immediate left (if there is one) is at X—6, Y. So the following program 
will plot yellow dots: 
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19 HIRES 

20 INPUT X,Y 

3 CURSET X-6,Y,3 
40 FILL 1,1,3 

5@ CURSET X,Y, 1 
60 GOTO 29 


If you try to plot a dot at 50,10 and then 56,10 you will immediately 
see the major difficulty in using Atmos colour in this simple way. The 
dot at 50,10 will appear yellow because of the yellow foreground 
attribute placed to its left by the FILL at line 49. However when the 
dot at 56,10 is plotted, the dot at 50,10 disappears because the new 
yellow foreground attribute for 56,10 is stored in the same character 
cell as the dot 50,10 and this makes all of the dots in this cell show as 
background points — including 50,10. The solution, of course, is to 
not place the new yellow attribute code for the second point on the 
screen. After all if 50,10 is yellow there must be a yellow attribute 
code to its left and this will also make sure that 56,10 is also yellow. 
This, however, depends on there not being another foreground 
attribute stored in a character cell between the two points and in 
general this is not something you can be sure of! Another feature of 
colour in high resolution graphics can be seen if you plot the same 
two points but in the reverse order — that is 56,10 first followed by 
50,10. In this case you will discover that 50,10 doesn’t appear on the 
screen. The reason for this is that Atmos’s graphics commands will 
avoid altering any character cell that contains an attribute code in an 
effort not to upset any colour scheme already present. All in all it is 
very difficult to use high resolution graphics in a mixture of colours 
without paying attention to what colour everything already on the 
screen is. There are one or two cases where the nature of the display 
makes colour easier to handle. For example if you restrict yourself 
to one colour per row then you can easily use all eight colours on the 
screen at the same time. Also if you keep high resolution objects at 
least 6 dots apart then you are free to use the gaps between them to 
store attribute codes. In practice the restrictions are not as bad as 
you might anticipate and you may be surprised at how often a 
display organisation facilitates colour handling. Where this is not 
the case our advice is to stick to two colours! 

As an example of a particular high resolution colour display try 
the following program which produces a striped display: 


19 HIRES 
20 Y= 
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30 FOR C=16 TO 23 
40 FOR I=1 TO 25 
5@ CURSET 9,Y,3 
6 FILL 1,1,C 

7 Y=Y+1 

80 NEXT I 

99 NEXT C 


This program uses FILL to place each of the background colour 
attributes into the far left of groups of 25 rows so producing 
horizontal stripes. 

You may be wondering why the FILL command is: 


FILL 1,1,c 
The answer is that the general form of the FILL command is: 
FILL R,N,C 


which will store the attribute code ‘C’ in N consecutive character 
cells on each of R rows — the first character cell is, as before, 
indicated by the current position of the graphics cursor. Thus: 


CURSET 0,0,3:FILL 1,1,1 


will store a single attribute code for foreground red in the top left- 
hand corner. 


CURSET 6,0,3:FILL 10,1,1 


will store the same attribute code at the start of each of the first ten 
rows on the screen. 

Another way of setting a number of attribute codes at the same 
time is to use INK and PAPER. In high resolution mode the 
commands INK cand PAPER c will store the appropriate attribute 
codes at the far left-hand side of the screen. This is all very simple but 
how do you change the colour of the three text lines at the bottom of 
the screen? The answer is that any INK and PAPER commands that 
you issue while in TEXT or LORES modes will remain in effect after 
a HIRES command. So if you want the three text lines to merge into 
the default high resolution screen try: 


19 TEXT 

20 INK 7 

30 PAPER @ 
4 HIRES 
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which produces a white on black text screen and then changes to the 
HIRES screen which by default is also white on black. 


Inverse colours 


In low resolution graphics storing a character code plus 128 at a 
character location will cause the Atmos to display the character but 
with inverse colours used for the foreground and background dots. 
This is also true of the high resolution screen. If you use FILL to 
store a code of 128 in a character cell then all dots are set to 
background dots and these show in the inverse of the current 
background colour. Any subsequent foreground dots that are 
plotted within the character cell also show in the inverse of the 
current foreground colour. As this inverse colour is not obtained by 
storing attribute codes to the left of the dots affected it is one way of 
changing colours without leaving a character cell with all 
background points on the screen. 


Characters in high resolution - CHAR 


The three lines of text at the bottom of the high resolution screen are 
often all that is required to print prompts, etc., during programs that 
use high resolution graphics. However it is often necessary to place 
text actually on the high resolution screen for example to label 
graphs. The command: 


CHAR A,S,FB 


will draw the character whose ASCII code is in A, using the shape 
defined in the character set given by S. The value of S can either be 0, 
for the standard character set, or | for the graphics character set. 
The value of FB determines what happens to the foreground dots in 
the characters shape in the usual way. The character is drawn so that 
its top left-hand corner is at the current position of the graphics 
cursor. 

To plot a text string on the high resolution graphics screen 
requires the repeated use of the CHAR command. For example: 


1 HIRES 
20 A$=“I AM A HIGH RESOLUTION ATMOS” 
30 CURSET 19,20,3 
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4 GOSUB 4909 

50 CURSET 10,28,3 
69 DRAW 162,9,1 
70 END 


4000 FOR I=1 TO LEN(AS) 

4019 CHAR ASC(MID$(A$,I,1)),0,1 
4920 CURMOV 6,9,3 

4030 NEXT I 

4949 RETURN 


Subroutine 4009 will plot the contents of the string A$ on the screen 
starting from the current position of the graphics cursor. 

As you can imagine, being able to plot character shapes on the 
high resolution screen extends itself to user-defined characters. In 
fact one of the main uses of the CHAR command is to plot small 
user-defined shapes on the high resolution screen. However there is 
one small detail of operation to be careful about. When a high 
resolution screen is being used the memory locations that store the 
character definitions are different from when a text screen is in use. 
The easiest way around this problem is to always define any user- 
defined characters before selecting a high resolution display. If you 
do this everything will work because the Atmos automatically moves 
all the character definitions to the new location whenever you use a 
HIRES command. 


Using and not using high resolution - GRAB and RELEASE 


If you are not going to use the high resolution screen then you can 
make the memory that it normally occupies available for BASIC 
programs by using the GRAB command. Similarly, if you want to 
re-allocate the memory to the high resolution screen you can use the 
RELEASE command. However you must be careful when you use 
RELEASE that the high resolution screen doesn’t overwrite part of 
your program. 


Finding out what’s on the screen - POINT 
In the same way that SCRN could be used to discover what 


character is displayed on the screen at any character location, the 
function POINT can be used to find out what sort of dot is on the 
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screen at any given high resolution position. The general form of the 
POINT function is: 


POINT(X,Y) 


Where X is the x co-ordinate and Y is the y co-ordinate of the 
position being examined. The value returned by POINT is —1 if 
there is a foreground dot at the specified co-ordinates and 0 if there is 
a background dot. The sort of thing that POINT is used for is similar 
to the use of SCRN in the saucer program given in Chapter Seven. 


Using high resolution graphics 


Although there are only a few high resolution graphics commands it 
can be difficult to see how they can be used to produce effective 
displays. As always, the best way to learn is to have a look at some 
examples and then try to write your own programs. 

The first example uses the GET function to control the position of 
a dot on the screen. By pressing the appropriate arrow keys you can 
draw shapes on the screen: 


10 HIRES 

20 X=199 

30 Y=100 

40 GET AS 

5 IF ASC(A$)=8 THEN X=X-~1 
60 IF ASC(A$)=9 THEN X=X+1 
70 IF ASC(A$)=19 THEN Y=Y+1 
80 IF ASC(A$)=I1 THEN Y=Y-1 
99 CURSET X,Y, 1 

109 GOTO 49 


You can see a sample of the output of this program in Fig. 8.3. You 
could try to add some improvements of your own such as diagonal 
movements and being able to move from one place to another 
without drawing a line. 

The second example is based ona set of patterns discovered by the 
nineteenth century French physicist, Lissajous and aptly called 
‘Lissajous figures’: 


1 HIRES 
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4 X=50*(1+SIN(1.1*T)) 
5@ Y=50*(1+COS(T)) 

60 CURSET X+50,Y+50,1 
7 GOTO 39 


Fig. 8.3. Etch-a-sketch. 


The output of this program can be seen in Fig. 8.4. You can produce 
a range of different patterns by changing the value 1.1 in line 49. 

The next example is a program that plots the graph of SIN(x)/x. 
This produces a particularly interesting shape, as you can see in Fig. 
8.5. One difficulty to be aware of is that SIN(x)/x is impossible to 
work out when x is zero so this point has to be carefully left out of the 
graph. 


Fig. 8.4. Lissajous figure. 


19 HIRES 
20 FOR I=1 TO 23 
30 IF I=115 THEN GOTO 70 
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49 X=(I-115)/5 

50 Y=150—150*SIN(X)/X 
69 CURSET LY, | 

7 NEXT I 


The final example in this chapter is a program that will plot the 
graph of any equation. The idea is very simple, just work out the 
values of the equation over the range specified and plot points 
corresponding to each X and Y values. The only trouble is how do 


Fig. 8.5. Plot of SIN(X)/X. 


you make sure that the X and Y values of the function fall into the 
permitted 0 to 239 and 0 to 199 that will keep the graph on the 
screen? The answer is that both the X and Y values have to be 
changed, they have to be ‘scaled’ to fit the screen. The scaling for the 
X values is easy because we know beforehand both the maximum 
and minimum values. If the maximum X value is XBIG and the 
minimum X value is XSMALL then to scale the X values to fall in 
the range 0 to 239 we use: 


_ 239*(X-XSMALL) 


XS =(XBIG-XSMALL) 


The rationale behind this equation is not difficult to understand. If 
you subtract XSMALL from X it ranges between 0 and 
XBIG-XSMALL. If you then divide by (KBIG~XSMALL) the 
result ranges between 0 and |. Finally multiplying by 239 gives a 
quantity that ranges between 0 and 239 which is what is actually 
required. The same reasoning can be used to scale the Y values but 
we don’t know the values of YBIG and YSMALL. The only way that 
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these values can be found is to first calculate the equation for each 
value of X and see what the largest and smallest values of Y are. The 
only other question is how many values of X is the equation worth 
calculating for? The answer is that each value of X should differ by 
an amount that moves the plotted point on by one screen dot. So the 
X step size should be: 


S=(XBIG—XSMALL)/239 
After this very long discussion, it is now time for the program: 


19 HIRES 

20 GOSUB 1999 
30 GOSUB 2009 
4 GOSUB 3000 
5@ END 


1999 DEF FNA(X)=X*X 

1919 INPUT “Draw graph starting at X=”;XSMALL 
1920 INPUT “Last X value to be graphed =”;XBIG 
1930 RETURN 


2000 X=XSMALL 

2019 YSMALL=FNA(X) 

2020 YBIG=YSMALL 

2030 S=(XBIG—XSMALL)/239 

2049 FOR X=XSMALL TO XBIG STEP S 
2059 Y=FNA(X) 

206 IF Y>YBIG THEN YBIG=Y 

2070 IF YXYSMALL THEN YSMALL=Y 
2080 NEXT X 

2999 RETURN 


3000 FOR X=XSMALL TO XBIG STEP S 

3010 Y=FNA(X) 

3020 CURSET (X-XSMALL) /(XBIG-XSMALL)*239, 
199-(Y-YSMALL) /(YBIG-YSMALL)*199, | 

3030 NEXT X 

3040 RETURN 


The program consists of three subroutines. Subroutine 1000 
defines the equation that the user wants to see the graph of and the 
range of X values that should be covered. Subroutine 200 finds the 
values of YBIG and YSMALL. Finally subroutine 300 actually 
plots the graph of the equation. The only unexplained part of the 
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program is the subroutine 200@ that finds YBIG and YSMALL. 
This is not difficult to understand. At the start YBIG and YSMALL 
are both set to the same value, the value of the equation when X 
equals XSMALL. The equation is then worked out for each value of 
X that will be plotted and the value of Y is compared with the current 
values of YBIG and YSMALL. Obviously if Y is larger than the 
current value of YBIG it should be used to replace the current value. 
In other words YBIG is the largest value of Y that ‘we have seen so 
far’ and after we have seen all the values, it becomes the largest of all 
values. The same reasoning holds for YSMALL but it is only 
changed if Y is smaller than the current value. In other words 
YSMALL in the smallest value we have seen so far. 

When using this program it is important to keep a few things in 
mind. Firstly, you can type in any equation involving X, such as 
X*X or SIN X, in the function definition at line 169 but the more 
complicated the equation, the longer the program will take to work 
it out. Secondly, you can specify any values for XBIG and 
XSMALL and the graph will still fit on the screen but you might not 
see a very interesting curve. To demonstrate the program, you might 
like to try the following equations by typing them in as function 
definitions at line 1009: 


X*X XBIG=10 XSMALL=-10 
X*X*X—25*X XBIG=8 XSMALL=-8 
SIN(X) XBIG=10 XSMALL=0 
SIN(X)+SIN(2*X) XBIG=10 XSMALL=0 


When using graphics in your own programs, the best strategy is 
actually to limit your use of high resolution graphics to those occasions 
when they perform an essential function. In other words, it is 
advisable to start off using low resolution graphics but to keep an 
eye open for situations where high resolution graphics can actually 
do the job better. The most common way of using the Atmos is in low 
resolution with user-defined graphics but often the mixture of high 
resolution and user-defined graphics (via the CHAR command) is 
very successful. 
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Fig. 8.6. Graph of SIN(X) + SIN(2X). 


Chapter Nine 
Logic and Other Topics 


In this chapter a number of different topics are introduced. It would 
be misleading to think of this as a collection of advanced topics just 
because they have been left until near the end. Using the BASIC and 
other information dealt with in earlier chapters, you should by now 
find it possible to write any program that you want to. However, 
there are facilities on the Atmos that, although not entirely necessary, 
do make things easier or go beyond what can be done from simple 
BASIC. This chapter collects together these extras and explains a 
little of how they work. 

The first topic to be covered has the rather daunting title of Boolean 
logic and introduces the commands AND, OR, and NOT. The second 
area deals with commands such as PEEK and POKE which affect 
the inner working of the Atmos. 


Logic and the conditional expressions 


In everyday speech we often say things like, ‘did you buy apples and 
oranges?’, ‘do you prefer tea or coffee?’. The use of words like and 
and or are so common that we rarely stop to think about them. It 
would obviously be a great advantage if the use of and and or could 
be extended to BASIC conditional expressions. Luckily, most 
versions of BASIC do allow the use of these everyday concepts and 
in Atmos BASIC you can write expressions such as: 


A<0 AND B=3 
A<0 OR B=3 


The meaning of each of these expressions is in line with the usual 
English meaning of and and or. The first of the above expressions is 
true if both of the conditions ‘A<0’ ‘B=2’ are true and the second 
expression is true if either of the two conditions is true. As well as 
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AND and OR the Atmos also allows the use of NOT, which simply 
changes the value of a conditional expression from true to false and 
vice versa. For example, ‘3=2’ is false but ‘NOT 3=2’ is true. 

You can combine AND, OR and NOT with any of the conditions 
we met in Chapter Four to make more complicated expressions that 
evaluate to one of the values true or false. (As you already know, 
from Chapter Three, true is represented by—1 and false by 0 in Atmos 
BASIC which allows you to use them very easily in arithmetic 
expressions.) Conditional expressions that include AND, OR or 
NOT are usually called logical expressions and we can now re-write 
the definition of the IF statement as: 


IF ‘logical expression’ THEN ‘BASIC statements’ 


or 


‘logical THEN ‘BASIC ELSE BASIC 


ie expression’ statements’ statements’ 


For example, if you want to check that you’re not about to use an x 
co-ordinate that goes outside the screen area, you could use: 


IF X<@ OR X>239 THEN ... 


in place of the two IF statements that would be required without the 
use of OR. 

Forming logical expressions to test for overall conditions is 
usually straightforward. However, there are a few traps that even 
experts fall into. If you want to translate the English statement - ‘A 
equals B and C’ then you must repeat the condition =. In other 
words, you must write: 


A=B AND A=C 
and not use 
A=B AND C 


which will give a result that depends on whether C is 0 or —1. You 
should also be careful when using NOT. For example: 


NOT(A=B AND A=C) 
isn’t the same as 
NOT(A=B) AND NOT (A=C) 


To see that this is the case try working the two expressions out fora 
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few values of ‘A’, ‘B’ and ‘C’. The moral is that you should always 
beware of using logical expressions without thinking about exactly 
what they mean. 

To close the subject of logical expressions it is worth introducing 
the idea of a truth table. If you consider the logical expression: 


A AND B 


where ‘A’ and ‘B’ are variables that are either 0, for false, or —1 for 
true. You can draw up a table that lists the result of the expression 
for all possible values of ‘A’ and ‘B’ as follows: 


A B A AND B 


0 0 0 
0 —l1 0 
= 0 0 
=] —l —l 


Such a table is called a truth table because it lists the conditions 
under which the logical expression is true or false. You can draw up 
truth tables for any logical expression and this is one way to check 
that you understand what is happening. For example, OR and NOT 
have the following truth tables: 


A B A ORB NOTA 
0 0 0 =i 
0 = =] —1 
=] 0 =I 0 
—1 =i =I 0 


The OR that we have used so far is not entirely equivalent to the 
English word ‘or’. Most uses of the English ‘or’ mean ‘one or the 
other but not both’ For example, ‘You can have jam or marmalade’ 
means that you can pick one but not (normally) both! However, the 
logical OR means that you can have either one or both (look at the 
truth table if you are unsure of this). The logical OR is more properly 
called the inclusive OR because it includes the possibility of both. 
The usual English ‘or’ is known as the exclusive or because it 
excludes the possibility of both. You can make up a logical 
expression that is equivalent to the exclusive or: 


exclusive or = (NOT(A) AND B) OR (A AND NOT(B)) 


as can be seen from the truth table: 
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A B  (NOT(A) AND B) OR (A AND NOT(B)) 
0 0 0 
0 -l | 

| 0 -| 

-1 -l 0 


To make programs that use logic easier to read the Atmos provides two 
predefined variables: TRUE, which is automatically set to —-1 and 
FALSE, which is automatically set to 0. Using these two variables 
you can write statements such as: 


IF ‘condition’ =TRUE THEN GOSUB 5000 


where ‘condition’ is a variable that is set to 0 or—1 somewhere else in 
the program. It is also worth mentioning that the Atmos treats any 
non-zero value as true. 


Inside the Atmos - PEEK, POKE, DEEK, DOKE, CALLandUSR 


It may come as something of a surprise to learn that BASIC includes 
a number of commands that allow access to the inner workings of 
the Atmos. The reason why this might seem strange is that all the 
BASIC that we have looked at so far has done its best to avoid 
getting involved with details of how the machine carries out 
commands. However, there are some applications where the normal 
instructions of BASIC are in some way deficient. For example, they 
might be too slow or fail to take account of some important feature 
of the machine. To allow the programmer to find a way around such 
difficulties, most versions of BASIC include instructions that allow 
you to gain access to the inside of the machine. 

Although, from the point of view of the BASIC programmer, the 
Atmos seems to do its arithmetic in terms of decimal numbers, in fact it 
works things out in a more fundamental system called binary. 
Humans count in decimal simply because they have ten fingers. If we 
had only two fingers then we would count in the same way that 
computers do, in binary. Although it is not important for a BASIC 
programmer to know very much about binary, it is important if you 
want to use the facilities of the Atmos directly. A binary number is 
simply a number that contains only zeros and ones. For example 
01001 is a binary number. We have already met binary numbers in 
action when converting foreground background dot patterns to 
decimal numbers. If instead of writing f and b, standing for 
foreground and background, you write | and 0 then the pattern of 
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ones and zeros that results is a binary number. Working out the 
decimal number that represents the pattern of dots is nothing more 
than converting the binary number to decimal! Explaining the 
theory and practice of binary numbers is beyond the scope of this 
book and would take us into areas well away from BASIC. 
However, the subject is not as difficult as you might believe and 
there is never any reason to worry about the arithmetic involved as 
this is one area that your Atmos is always ready to help with! Once you 
have come to terms with binary numbers you will find it useful to use 
yet another sort of number — hexadecimal. Although the Atmos will 
not accept binary numbers directly it will accept and print 
hexadecimal numbers. A hexadecimal number is signified by 
preceding it by #. For example #FF is hexadecimal for 255 in 
decimal. You can also use the HEX$ function to convert decimal 
numbers to a hexadecimal in string form. 

We learned very early on that a variable is a named area of 
computer memory. However, it is sometimes necessary to side-step 
this method of using computer memory and use in preference direct 
access, via PEEK and POKE. PEEK isa function that will return the 
contents of a memory location and POKE is a command that will 
alter the contents of a memory location. It is as simple as that, except 
that you need to know how to specify which memory location and 
what sort of number can be stored in a memory location. The first 
problem is easily solved because the Atmos, like all computers, 
numbers all its memory locations sequentially starting from zero. So 
PEEK(543) will return the contents of the five hundred and forty- 
third memory location. The second problem is also easily solved 
once you know that a memory location can store a binary number 
with up to eight zeros or ones in it and, as 11111111 evaluates to 255 
in decimal, this is the largest number that can be held in a single 
memory location. So POKE 1000,200 will store 200 in memory 
location 1000. However, POKE 1000,600 will give an error message 
because 600 is greater than 255. In general, to use PEEK and POKE 
you have to have a knowledge of what is stored where inside your 
Atmos and this is often not easy to find out. For this reason, PEEKing 
and POKEing are best avoided unless you are absolutely sure that 
you know what you are doing. We have already used POKE in a 
number of applications, for example to change the shape definitions 
of characters in Chapter Six. As an example of using PEEK consider 
the related problem of discovering what the dot pattern of any 
particular character currently is. To do this all we have to know is 
where the eight memory locations that store the eight rows of dots 
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are in memory. However, this problem has already been solved to 
enable us to POKE new dot definitions. The address of the Ith row 
of dots of the character in C$ is: 


address = 46080 + ASC(C$)*8 + I 


if the character is in the standard character set. A program to 
examine and print the contents of each of the eight memory 
locations is now easy to write: 


1? INPUT “WHICH CHARACTER”;C$ 
20 FOR I=$ TO7 

30 ADDR=46080+ASC(C$)*8+1 

49 DAT=PEEK(ADDR) 

50 PRINT DAT 

60 NEXT I 

70 PRINT 

80 GOTO 19 


The range of numbers 0 to 255 that can be stored in a single 
memory location is very restrictive. This restriction is overcome by 
using more than one memory location to store a number. For 
example two memory locations can be used to store number in the 
range 0 to 65535. This range is large enough for most purposes and 
the Atmos provides modified forms of PEEK and POKE to enable 
data to be retrieved and stored using two memory locations as easily 
as one. The command: 


DOKE address,value 


will use the two memory locations at ‘address’ and ‘address+1’ to 
store ‘value’ and: 


DEEK (address) 


will examine the two memory locations at ‘address’ and ‘address+ |’ 
and return the value stored in them. 

Atmos BASIC doesn’t have a TIME function or a command that 
can be used as a timer but using DEEK, DOKE and user-defined 
functions it is not difficult to add one. The key piece of knowledge 
you need is that memory locations #276 and #277 form an internal 
timer that has one subtracted from it every '))th of a second. That 
is, if you set these two locations to any value they will count down to 
zero. For example try: 
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1) DOKE #276,100 
2 PRINT DEEK(#276) 
30 GOTO 20 


A useful timer should really count up to indicate the amount of time 
that has elapsed since it was set to zero. This is easy to achieve by 
subtracting the timer’s value from its maximum possible value. The 
following function will return the time in seconds since the timer was 
‘zeroed’, 


1? DEF FNT(T)=(#FFFF-DEEK(#276))/ 100 
and the command, 

DOKE #276,4#FFFF 
will zero it. For example try: 


19 DEF FNT(T)=(#FFFF-DEEK(#276))/ 100 
20 DOKE #276,#FFFF 

30 PRINT FNT(Q) 

4 GOTO 30 


As the timer uses only two memory locations it takes roughly ten 
minutes for it to reach its highest count and return to zero. 

The commands USR and CALL are very special BASIC 
commands in that they transfer control out of BASIC and into a 
machine code program stored somewhere inside the Atmos. Machine 
code is a completely new, and vast, topic and until you want to get 
involved in it USR and CALL will be of little interest to you. 
However, if you do feel like getting involved in yet another computer 
language they are your route out of BASIC! 


Controlling BASIC - HIMEM, CLEAR, POP and PULL 


There are a number of Atmos BASIC commands that are concerned 
with altering the way that BASIC works. For example we have 
already met GRAB and RELEASE which allow BASIC to use or 
give back the memory normally set aside for the high resolution 
graphics screen. Similarly the command: 


HIMEM address 


will stop BASIC using memory above ‘address’. The reason why you 
might want to reserve memory in this way is to store machine code 
programs. 


Logic and Other Topics 147 


The command CLEAR will remove any data stored in variables; 
that is it sets variables to zero and strings to the null string. It also 
removes any arrays that you might have dimensioned and so gives 
you the opportunity to redimension them. 

The commands POP and PULL allow you to use BASIC ina way 
that was never intended! The best way to explain POP is by an 
example. Suppose that you follow the suggestion given earlier in this 
book and write all your programs as collections of subroutines. 
Then a problem that sometimes arises is that an error or condition 
occurs in a subroutine that makes it either impossible or pointless to 
continue with the rest of the program. However, rather than just 
printing an error message and stopping, it might be possible to 
return control to the main program and proceed to another part of 
the program. This is easy if the subroutine where the condition 
occurred was called by the main program. In this case a simple 
RETURN does the trick, but what if the subroutine was used by 
another subroutine that was called by the main program. In this case 
a RETURN will only transfer control back to the previous 
subroutine and not to the main program. The command POP will 
solve this problem by removing all trace of the last GOSUB that 
occurred. Following POP a RETURN transfers control back to the 
point in the program that you would normally get to by carrying out 
two RETURNs ina row. In other words, POP:RETURN transfers 
control not to the subroutine that called the current subroutine, but 
to the subroutine (or main program) that called the subroutine that 
called the current subroutine! You may think this description has 
the potential to confuse — it does and this is why the POP command 
is not something to use very often. It is very difficult to follow the 
workings of a program that includes POP commands and this in 
turn can make it difficult to debug and difficult to alter. However, 
there are occasions when the POP command is the easiest and even 
clearest way of working your way back up a collection of subroutine 
calls without having to pass through each one in turn. As an 
example of POP try the following: 


10 GOSUB 1090 
20 PRINT “BACK IN MAIN PROG” 
30 END 


1900 PRINT “IN 1900” 

1919 GOSUB 2000 

1920 PRINT “RETURNED TO 1090” 
1930 RETURN 
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2000 PRINT “IN 2000” 
2019 RETURN 


If you run this program then you will see the expected sequence of 
subroutine transfers: 


Main — 1000 — 2000 — 1900 — Main 
However, if you add: 
2005 POP 
to the program the sequence of transfers is: 
Main — 1000 — 2000 — Main 


In other words, the RETURN at line 201 transfers control right 
back to the main program without going through subroutine 1999. 

The command PULL performs the same service as POP but for 
the point that a REPEAT UNTIL loop returns to. When the Atmos 
encounters an UNTIL statement it either passes control back to the 
most recent REPEAT statement or it ends the loop by passing 
control to the next statement. Following a PULL command an 
UNTIL statement will either end the loop or transfer control back to 
the REPEAT statement before the one that it would normally return 
to. For example: 


1? REPEAT 

20 PRINT “LOOP ONE” 
30 REPEAT 

4 PRINT “LOOP TWO” 
50 UNTIL 1=0 

60 UNTIL 1=0 


This program consists of two simple loops that never come to an end 
(because | will never equal 0!). When you run the program you will 
see “LOOP ONE” printed once and then “LOOP TWO” over and 
over again indicating that the first UNTIL at line 5@ transfers 
control to line 3 as you would expect. However, if you now insert: 


45 PULL 


you will find that the two messages alternate and this indicates that 
the UNTIL at line 50 is now transferring control to the first 
REPEAT statement at line 1. As you can see, PULL is potentially 
even more confusing than POP and should be avoided if at all 
possible. 
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The ideas introduced in this chapter are difficult to absorb in the 
abstract. As with all the other BASIC commands discussed in this 
book, the only real way to come to terms with them is to use them in 
your own programs. At present you may not be able to imagine 
occasions when you need to rely on Boolean logic or commands 
such as PEEK and POKE. They do have their uses, however, and 
once you discover that you actually need one of these rather esoteric 
commands you will both understand how it works and recognise its 
value. 


Chapter Ten 


Towards Better 
Programming 


The programming examples in this book have all been presented as 
complete and working programs. However, if you have tried writing 
your own programs then you will know that for a program to work 
first time is a very rare event! In the first part of this chapter the 
subject of making programs work or debugging is considered. 
When you first start to learn to program there is enough to think 
about in just solving a problem and producing a program that works 
without worrying too much about the quality of the program. As 
you become more familiar with BASIC and with programming in 
geneial, however, you will find that as well as being able to tackle 
more difficult problems you will be able to examine your programs 
more critically. The second half of this chapter discusses how you 
can make your programs more reliable. 


Finding bugs 


Whenever you write a program there comes the moment when you 
have enough of it complete to type RUN and expect it to do 
something useful. Usually something goes wrong and it doesn’t 
perform as you would expect it to. The next question is how to go 
about correcting what you have written to make it work - in other 
words, how do you find the bug in a program? Sometimes the 
problem is easily solved because the Atmos gives anerror message that 
names a particular line and listing that line reveals an obvious 
mistake, such as a mistyping. However, on many occasions the error 
message names a line that is perfectly correct Atmos BASIC. In this 
case the problem lies in a line that defines something that the line 
mentioned in the error message uses. For example, if you forget to 
dimension an array the error message will mention the first line that 
uses It. 
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Program bugs that cause error messages to spring up are generally 
easy to find by just looking at the program. The trouble really starts 
when a program runs without causing an error message but just 
doesn’t behave as you would expect it to. Even in this case just 
looking at the program is sometimes sufficient to find the bug, but if 
you have been staring at the program for more than a few minutes 
the chances of finding the problem in this way are very small. 
Because by inspecting a program you can find simple bugs, many 
programmers think that this is the best method of finding more 
difficult bugs! This is far from the truth. The only way to find a 
difficult bug is to do something, just staring at the program will only 
give you a headache. The most important thing to realise is that 
debugging is an activity. You must try to gather as much 
information about the way that the program is working and compare 
this with the way that you expect the program to be working. There 
are two things that you need to check to discover where a program is 
going wrong - that the values stored in the variables are what you 
would expect them to be and that the order in which the statements 
are carried out is correct. If both of these things agree with what you 
would expect then the program is correct and if it still doesn’t do 
what you want it to you are using the wrong method! 

Atmos BASIC provides a number of debugging aids that will help 
you discover if the program is behaving as you would expect. Firstly 
you can check that the flow of control is correct by using the trace 
function. Following TRON (TRaceON) the Atmos will print the 
number of each line that it obeys and in this way you can follow the 
execution of a program. The only trouble is that if you enter a loop 
following TRON you will be inundated with screenfuls of line 
numbers! The correct way to use the trace commands is to embed 
them in the program that you are debugging. Place TRON 
commands at the points in the program where you want to check the 
flow of control and TROFF (TRaceOFF) commands before any 
loops, or anywhere else that the quantity of line numbers generated 
would be more than you could cope with. 

A more controlled method of following the flow of control 
through a program is to use the STOP command. When the Atmos 
encounters a STOP command it stops executing the program and 
prints the current line number. This information can be used to 
follow the flow of control through a program. In addition, while the 
program is stopped you still have access to all of the variables that 
the program has used. For example, you can find out what is stored 
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in any variable by entering a PRINT statement in direct mode. To 
see this in action try: 


19 INPUT A 

20 IF A>? THEN GOTO 199 
30 STOP 

4 PRINT A 

5@ END 

109 STOP 

119 PRINT A 


If you type in a positive number you will see the message 
“BREAK IN 100” 

displayed on the screen. You can then find the value of A by entering 
PRINT A 


You can even change the value of A by assigning to it in direct mode. 
After investigating the values stored in the variables the program 
can be restarted by typing: 


GOTO x 


where ‘x’ is the line number of the statement that follows the STOP. 
In the case of the above example, this is GOTO 11. By placing 
STOP commands carefully and investigating the values stored in 
variables, it is possible to find out exactly what a program is doing 
and where it isn’t doing what it should there lies a bug! 


Good programming style 


There are many different ways to write a program and as you gainin 
knowledge and experience you should try to write the best program 
that you can. The only question is ‘what is a good program?” 
Obviously a good program must do what you intend it to — that is, it 
must work — but after that what makes a program ‘good’ is a matter 
of opinion. In the early days of computing the two most important 
characteristics of a program were how fast it worked and how much 
memory it took. However, as the hardware of computing becomes 
cheaper and more powerful, program performance in terms of speed 
and size becomes less important. This said, it has to be admitted that 
there will always be applications that need special attention to 
complete the job in a reasonable amount of time. The point is that 
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needing a program that works fast is no excuse for ignoring the other 
aspects of good programming. A program cannot be considered as a 
good program unless it is written in a way that makes it easy to 
understand. Some of the reasons for this emphasis on programs that 
are easy to understand have been explained in earlier chapters but, 
generally speaking, a program that is easy to understand is less likely 
to contain hidden errors and will be easier to update and modify in 
the future. 

The most important components of producing programs which 
are easy to understand are a simple flow of control and the use of 
subroutines to encapsulate the different actions of a program. The 
subject of how to make the flow of control easy and clear to 
understand is still a slightly controversial subject with some factions 
claiming that the arch-enemy of a clear flow of control is the GOTO 
statement. This is a matter of opinion and it is much better for you to 
appreciate the need for a simple flow of control than be told never to 
use the GOTO - advice that you are sure to be given at some time! In 
some cases, the GOTO statement is the clearest and most 
unambiguous way of altering the flow of control. 

When it comes to the use of subroutines, a good program should 
be understandable at a number of levels. When you first look at it 
you should be able to see its overall structure from the way that its 
main subroutines are called. You should then be able to find out 
about its more detailed workings by examining the lines of BASIC 
that make up the main subroutines and then by examining the 
subroutines that are used within the main subroutines and so on. A 
good program should have a structure like the layers of an onion! 

If a program is well written in the way described above then its 
workings should be almost self-explanatory but even in the clearest 
of programs there is often the need to supply some extra information 
about how things work. For this reason BASIC includes the REM 
statement. The BASIC command REM is the simplest of all in that 
it does absolutely nothing! Its only purpose is to allow you to include 
comments that are not part of a program. For example, you should 
include in every program that you write a first line that tells you what 
the program is intended to do. In the following program: 


10 REM This is a test 


the REM alerts the Atmos to the fact that what follows isn’t to be taken 
as a line of BASIC but as a note to any humans who might read the 
program. REM statements can be included at any point in a 
program and can serve as a note to the programmer of what the 
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program is doing at its various stages. This is a useful facility, 
especially if you intend other people to scrutinise your programs or 
want to re-use them yourself after an interval. You might think it 
strange that such a simple command has been left to the last chapter 
of a book on BASIC. The reason for this is that, although REM isa 
simple command, it’s not until you reach a certain level of 
understanding that you can see what better programming is all 
about. The correct use of the REM statement is a sure sign that you 
are no novice programmer! 


Error trapping 


Writing good programs, in the sense of good style, is only one side of 
the coin — the programmer’s side. Program structure is an internal 
consideration that should interest other programmers but, apart 
from reducing the number of bugs, is of no interest to users. Users 
only see the outside of your programs and this is yet another aspect 
of writing good programs. A program that is easy to use and difficult 
to crash, that is to stop running by typing in incorrect data, is said to 
be user-friendly. It is difficult to explain in general terms how to 
write user-friendly programs because it depends very much on the 
individual program and who the intended users are. However, there 
are a number of simple things that you can do to make sure that your 
program is relatively uncrashable. In particular you should check 
that any input data is in the range you would expect. For example, 
rather than: 


19 INPUT “ANSWER THE QUESTION YES OR NO”;A$ 
20 IF A$S=“YES” THEN GOSUB yyyy 
30 GOSUB nnnn 


where subroutine yyyy is the subroutine that handles the ‘yes’ answer 
and subroutine nnnn handles the ‘no’ answer, use: 


19 INPUT “ANSWER THE QUESTION YES OR NO”;A$ 
20 IF AS=“YES” THEN GOSUB yyyy:GOTO 60 

30 IF A$=“NO” THEN GOSUB nnnn:GOTO 69 

49 PRINT “PLEASE ANSWER YES OR NO” 

50 GOTO 16 

60 rest of program 


In other words, check that the answer to a question is one of the 
allowed answers rather than just assuming that if it isn’t one answer 
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it must be the other. Checking that a numeric input is in the correct 
range is even easier. For example if the input should be in the range | 
to 10 then use: 


10 INPUT “ENTER A VALUE IN THE RANGE | TO 10”;A 

20 IF A<Il OR A>1@ THEN PRINT “A NUMBER 
BETWEEN | AND 19 PLEASE”:GOTO 16 

30 rest of program 


Whenever you get data from the outside world into a program — check 
that it is reasonable. 

However even if you check all the input data values and make sure 
that they are in the correct range you can still get errors that cause 
the program to crash. For example, during the course of a perfectly 
legal calculation you might try to divide by zero or the result might 
become to big. Such errors are known as run time errors because 
they are difficult to spot just by looking at the way that the program 
is written. Rather than just allowing such run time errors to cause 
the program to crash, it is possible to detect or trap most of them 
before they occur. For example if there is any chance that a sum 
which involves division could fail because of attempting to divide by 
zero then simply work out the sum in three stages. That is instead of: 


A=(B*3-C) /(C*4-8) 


where in practice the two expressions in brackets could be even more 
complicated use: 


D=(C*4-8) 

IF D=$ THEN PRINT “CANNOT WORK IT OUT 
FOR THESE VALUES”:GOTO xxx 

A=(B*3-C)/D 


Another run time error that occurs quite often is produced by trying 
to move the graphics cursor outside the screen area. Trapping this 
run time error is particularly simple for the CURSET command. 
Each CURSET command should be preceded by: 


IF X<@ THEN X=0 
IF X>239 THEN X=239 
IF Y<? THEN Y=9 
IF Y>199 THEN Y =199 


Of course in practice this just isn’t possible because your program 
would almost certainly be too big and too slow as a result! It is much 
more difficult to check if commands such as CURMOV and DRAW 
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are going to take the cursor off the screen because of their use of 
relative co-ordinates but it is possible. It just isn’t practical to try to 
check for all run time errors and so, in Atmos BASIC at least, the 
possibility of crashing a program has to be admitted. In general it is 
very difficult to make a program completely crash proof, but if you 
design the error handling part of your program as you go along 
rather than adding it when the program is almost finished you will 
find it easier. Finally, it is important to realise that error handling is 
one of the most difficult areas of programming and it is certainly to 
be left until you are happy with other aspects of BASIC and writing 
programs. 


Where next? 


The real route to learning how to program is to write programs! This 
said it does help to know something of the theory that lies behind 
programming and how other programmers go about the task. A 
good way to learn is to read other people’s programs and try to find 
out how you could have done better. Plenty of examples of graphics 
games programs that you might enjoy playing and improving on are 
contained in The Atmos Book of Games, by Mike James, S. M. Gee 
and Kay Ewbank, published by Granada. Once you have tackled a 
few larger programs of your own then it is time to look at the more 
advanced aspects of BASIC programming which you will find 
further explained in The Complete Programmer, by Mike James, 
also published by Granada. Whatever you do it is important not to 
loose the sense of adventure and experimentation that makes 
programming challenging and enjoyable! 


Chapter Eleven 


The Atmos Microdisk 


One of the attractions of the Atmos for many users is the availability 
of its microdisk system. This provides the Atmos with an alternative 
to cassette tape storage — a disk drive unit which uses three-inch 
disks. The addition of a single microdisk drive to the Atmos creates a 
system that is easier and faster to use. Apart from the obvious 
advantages of increased speed and reliability, a microdisk offers the 
possibility of using the Atmos in new ways. In this sense the 
microdisk is not simply a replacement for a cassette recorder. In 
particular it makes it possible to save and load high and low 
resolution displays, change character sets, and manipulate data files. 
The basic operation of the microdisk system is well described in its 
manual and so this will not be dealt with in great detail. However it is 
worth explaining how the new disk commands can be used within 
BASIC programs to construct and manipulate data files. 


The difference between tape and disk 


Both cassette tape and disk can be used to store programs and data 
in the form of named files. The operation of saving and loading 
programs on tape is something that is very familiar to all Atmos 
programmers. Saving and loading programs from disk differs only 
in the speed and reliability of operation. The increase in speed is no 
small advantage. For example, because program saving is so quick 
you can afford to save more often during program development and 
because loading is so quick large programs can be written as a 
number of smaller programs in such a way that only the section 
actually being used need be loaded into memory. Although speed 
and reliability are the most obvious differences between tape and 
disk there is a more important and fundamental distinction between 
them when it comes to data handling. 
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Data that is stored on tape can only be retrieved in the same order 
that it was written. That is, tape is a ‘serial’ or ‘sequential’ storage 
device. By contrast data can be retrieved from disk in any order 
irrespective of how it was written. That is, disk is a ‘random access’ 
storage device. This difference is due to the different physical forms 
of tape and disk. Obviously, as data is recorded on tape item by item 
you have to wind the tape on to reach an item recorded later on the 
tape. But in the case of a disk the data is recorded in concentric rings 
and the reading head, the disk’s equivalent of the tape head, can 
move to any of the ‘rings’ of data. This is exactly like the freedom 
that a record player gives you to select any particular piece of music 
by placing the stylus down wherever you want to; a cassette tape has 
to be laboriously wound to the correct position. 

In principle, the Atmos microdisk can be used as a random access 
device for storage but in practice this is not possible with Atmos 
BASIC. This is a great pity as it rules out many sophisticated data 
processing applications unless you are prepared to use assembler. In 
fact the only way that the random access nature of the microdisk 
shows itself to the BASIC programmer is the way that many files can 
be stored on one microdisk and each one loaded just as fast as any 
other. (Compare this to the situation of storing many files on a 
cassette tape!) 


Disk operating system (DOS) 


The Atmos microdisk unit actually consists of four different 
components: 


1) the disk drive 

2) the disk controller 

3) 8K of additional ROM software 

4) approximately 11K of RAM software (supplied on microdisk) 


The extra 8K of ROM- and 11K of RAM-based software contains 
all the necessary extra commands and extensions to BASIC to allow 
you to make use of the hardware. The actual method used to add this 
software to the already rather full Atmos is not really important 
from the programming point of view but it is worth saying that it 
resides in the same address area as the Atmos BASIC ROM. The 8K 
of ROM software is responsible for getting the system started by 
loading the 11K of RAM-based software from the ‘system’ disk into 
the Atmos. You might be surprised to learn that this RAM-based 
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software doesn’t take up any of the standard 48K of the Atmos! The 
reason for this is that a 48K Atmos actually has 64K of RAM but 
normally 16K of it is unusable because it occupies the same set of 
addresses as the BASIC ROM. When you connect the Atmos 
microdisk, electronics inside the unit makes this extra 16K of RAM 
available for use by switching the BASIC ROM in and out as 
necessary. This sharing of the same set of addresses by selecting 
which of a number of memory devices is active is usually called 
‘paging’ and it is a feature of a number of modern microcomputers. 
If you take paging into account you could say that the Atmos plus 
microdisk form a machine with approximately 86K of memory! Any 
software that looks after the functioning of disk drives is usually 
referred to as a DOS which stands for ‘Disk Operating System’ and 
so the additional ROM- and RAM-based software is collectively 
called ‘Oric DOS’. 


Disk commands 


The extra commands introduced by Oric DOS are all distinguished 
from Atmos BASIC commands by starting with an exclamation 
mark. For example, ‘!DIR’ will list all the files currently ona disk on 
the screen. Whenever the Atmos encounters an exclamation mark at 
the start of acommand it passes it to the DOS to see if it is a request 
for a disk operation. The disk commands are easier to understand 
once you know how files are named. All DOS filenames are of the 
form 


Drive no-name.extension 


where ‘Drive no’ specifies which microdisk drive the file is stored on, 
‘name’ is a string containing up to six letters and ‘extension’ is a 
string containing up to three letters. For example, “@-MYFILE 
.DAT” is a valid filename with ‘Drive no’ set to 0 and ‘name’ and 
‘extension’ set to “MYFILE” and “DAT” respectively. If you only 
have one microdisk then there is usually no need to specify which 
drive number a file is stored on - DOS will assume that all your files 
are stored on drive 0. You might be wondering what the reason is for 
having the ‘extension’ part of a filename. The answer is that it is 
sometimes useful to have a number of files all with the same name 
but with different extensions. For example, PROGI.BAS, PROGI 
.LST, and PROGI.BIN might all refer to the same program, 
‘PROGI’, in different forms. PROGI.BAS could be a standard 


160 The Atmos Programmer 


BASIC version, PROGI.LST might be a formatted version ready 
for printing and PROGI.BIN might be a machine code version. In 
this sense the ‘extension’ tells you the type of the file and the ‘name’ 
identifies the file exactly. Notice that a complete filename is a string 
and so it usually needs to be enclosed by quotes. However, some 
commands only need the drive number specifying and in this case 
you don’t have to enclose it in quotes. 

There are a number of occasions where it is useful to be able to 
specify a number of files with very similar filenames. This can be 
achieved by using an ‘ambiguous’ filename. Although this sounds 
complicated, all you have to remember is that as part of an 
ambiguous filename ‘? stands for any single character and ‘*’ stands 
for any number of characters. For example, “FILE?. DAT” is an 
ambiguous filename that refers to all files with names of the form 
“FILE” followed by any letter or digit for example, “FILE1”, 
“FILE2” etc. The name “FILE.*” specifies all files with the name 
“FILE” irrespective of their extension, “*.DAT” specifies all files 
with the extension “. DAT” and “*.*” specifies all the files on a disk! 

Now that we know the form of a filename it is worth briefly 
introducing the DOS commands: 


!BACKUP drive no 1 TO drive no 2 

This will copy all of the data stored on the disk in ‘drive no I’ to the 
disk in ‘drive no 2’. If you only have one microdisk then !BACKUP @ 
TO @ will allow you to copy disks by asking you to repeatedly swap 
the microdisk in the drive. 


!COPY filename | TO filename 2,optionlist 
This command can be used both to copy and to merge files. In its 
simplest form it will copy ‘filename I’ to ‘filename 2’. For example, 


!COPY “@-MYDATA.DAT” TO “I-BACK.DAT” 


will copy all of the data in‘MYDATA’ to drive | and name the new 

file ‘BACK.DAT’. However, there are a large number of options 

that can be specified as part of the command: 

@ P or N specify the ‘write protect’ status of the new file, see the 
PROTECT command described later. P makes the new file write 
protected and N makes it unprotected. If you specify neither N 
nor P then the new file will have the same status as the old file. 

@ Cspecifies that a single disk drive copy should be performed. This 
will cause the DOS to issue messages to prompt you to change 
disks as the copying proceeds exactly as in the case of a single disk 
!BACKUP. For example, 
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ICOPY “@—-FILE1.DAT” TO “@—-FILE2.DAT” 


will create a copy of “FILEI” under the name “FILE2” on the 
same microdisk but, 


!COPY “@.FILE1.DAT” TO “@.FILE2.DAT”,C 


will create a copy on a different microdisk by asking you to swap 
disks as the copying proceeds. 

@ O specifies that a copy operation is allowed to overwrite any 
existing files with the same name as the new file. For example, if 
“FILE2” already existed on disk the command 


ICOPY “FILEI.DAT” TO “FILE2.DAT” 
would result in an error message. However, the command, 
ICOPY “FILEI.DAT” TO “FILE2.DAT”,O 


would first erase the existing version of “FILE2.DAT” and 
replace it by the new version containing the same data as 
“FILEI.DAT”. 

@ M allows a number of files to be merged together to make one 
large file. The files to be merged are specified by a single 
ambiguous filename. For example, 


!COPY “FILE?. DAT” TO “FILE.DAT”,M 


would merge all the files on the disk with names like “FILE1”, 
“FILE2” etc. and store the result in “FILE”. 


!DEL ambiguous filename 

This command will delete all of the files that are specified by the 
‘ambiguous filename’. For example, !DEL “*.DAT” will delete all 
the files with the extension “.DAT”. This command should be used 
with care; it can easily wipe out a great deal of work! 


!DIR ambiguous filename 

The !DIR command will give details of all the files specified by the 
‘ambiguous filename’. For example, !DIR “@—*.COM?” will give you 
details of all the files with the ‘COM’ extension on disk 0. The !DIR 
command is most often used to discover what files are stored ona 
microdisk and to this end there is a shortened form of the command — 
!DIR on its own will give information on all the files stored on the 
default drive (see the DRIVE command). 


!DRIVE drive no 
This command will set the default drive number that will be used if 
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you omit the ‘drive no’ part of a filename. Unless otherwise specified 
the default drive is taken to be 0. 


!FORMAT drive no 

Before a new microdisk can be used it has to be ‘formatted’ by using 
the !FORMAT command. Notice that !FORMATting a microdisk 
will erase all of the files stored on it. 


!LOAD filename, optionlist 

The !LOAD command is the disk equivalent of CLOAD. It can be 

used to load a BASIC program or machine code from disk and will 

automatically start the program running if desired. A number of 
options can be specified: 

@ D will cause the start, end and transfer addresses to be displayed. 

@ N will suppress an auto start. 

@ Acan be used to specify an alternative start address. The address 
should follow the A immediately and has to be specified in hex. 
For example, A20QQ will cause a machine code program to be 
loaded at 2000. 

@ J will cause the program being loaded to be ‘joined’ on to the end 
of an existing program. This option should only be used to merge 
BASIC programs. 

For example, !LOAD “PROG” will load “PROG” and start it 

running if an auto start address was specified when it was saved. 

!ILOAD “OLD.COM”,N,D will load the program “OLD.COM” 

and display its start, end and transfer address and suppress any auto 

start so that these values can be read. 


!PROT ambiguous filename,option 

This command can be used to set or change the status of an existing 

file or set of files. The options are: 

@ P will write protect the file — this will stop the file from being 
deleted or changed in any way. 

@ N will remove any protection from the file. 

@ | will write protect the file and suppress its appearance in any 
directory listing. 

For example, !PROT ‘“*.*”,I will make all the files on a microdisk 

write protected and remove them from the directory! 


!REN filename! TO filename2 

This command simply changes the name of an existing file called 
‘filenamel’ to a new name, ‘filename2’. Notice that the contents of 
the file are unchanged. 
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ISAVE filename, options 

There are two slightly different versions of this command depending 
on whether you are saving a BASIC program or machine code. The 
form of the command for saving a BASIC program is simply, 


ISAVE filename,AUTO 


where the word ‘AUTO’ is optional. If AUTO is included then 
loading the program will cause it to auto start. The form of the 
command for saving machine code is 


ISAVE filename, A#start,E#end, T#transfer 


which will save the area of memory between ‘start’ and ‘end’ and will 
auto start the program at the address given by ‘transfer’. Notice that 
the addresses are all specified in hex and that ‘T#transfer’ can be left 
out of the command if auto start is not required. For example, 


ISAVE “CODE.BIN”,A#1000,E#2000,T# 1000 


will save the contents of memory between #1000 and #2009 ina file 
called “CODE.BIN” with an auto start address of #1000. The 
!SAVE command can be used to store the contents of any area of 
memory even if it doesn’t contain a machine code program. For 
example, you could define a new character set and then save the 
character definition’s area of memory for future use. 


IOPEN, !CLOSE, !PUT, !GET, !STORE and !RECALL 

These six DOS commands are different from the others in that they 
are generally only used within BASIC programs. For this reason 
they are dealt with in a later section. 


Disk resident commands 


All of the DOS commands that have been introduced in the previous 
section are ‘memory resident’. That is, the machine code that 
implements them is loaded into RAM from the system disk as part 
of the DOS when the Atmos is first switched on. However, the less 
frequently used DOS commands are ‘disk resident’. That is, they are 
stored on disk in named files until they are actually needed. For 
example, the !HELP command is a disk resident command that will 
give you information on how to use any of the DOS commands. If 
you look at a directory of a system disk then you will see a number of 
files called “HELP”. The one that is loaded in response to the 
!'HELP command is called “HELP.COM”. In fact typing the 
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command “!name” will cause the DOS to search the disk for a file 
called “name.COM”. If it exists it is loaded and run provided auto 
run was specified when it was saved. In the case of the !'HELP 
command, the file “HELP.COM” is loaded and runs one of the 
other “HELP” files to supply the information requested. For 
example, !'HELP BACKUP will first load “HELP.COM” which 
determines that information is requested on the BACKUP 
command and then loads “HELP.OI” which is a screen of 
information describing the BACKUP command. 

Obviously the number of disk resident commands can be 
increased at any time by simply adding new files to the system disk. 
However the standard disk resident commands include: 


'HELP ~ gives information on DOS commands. 


!OLD ~ restores a program in memory that has been removed using 
NEW. This command only works if no lines of BASIC have been 
typed in since the NEW was obeyed. 


!SYS — allows the parameters of the disk drive to be changed. This 
command should not normally be needed unless you are changing 
your hardware. 


Adding commands to DOS 


The beauty of disk resident commands is that they are an easy way of 
extending the range of commands in the DOS. It has already been 
explained that the command !name will try to load, and possibly 
run, a file called ‘“‘name.COM” but perhaps it hasn’t been made 
entirely clear that this file can be either a machine code or a BASIC 
program. Normally extending a DOS involves using machine code 
but because a “.COM” file can be machine code or BASIC, Oric 
DOS can easily be extended using BASIC. 
As an example consider the following short BASIC program: 


1? REM SAFE ERASE 

20 TEXT:CLS 

30 C$="ERASE”:GOSUB 1009 

4 PRINT “ERASE ”;P$; 

5@ INPUT A$ 

60 IF LEFTS(A$,1)<>“Y” THEN END 
70 PRINT “ARE YOU SURE”; 
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80 INPUT A$ 

99 IF LEFT$(A$,1)<>“Y” THEN END 
100 DEL P$ 

110 END 


1000 P=#35+LEN(C$) 

1019 P=P+1:IF PEEK(P)=32 THEN GOTO 1919 
1920 PS$=*” 

1030 C=PEEK(P) 

1040 IF C=@ OR C=32 THEN RETURN 

1050 IF C<128 THEN P$=P$+CHRS(C) 

1960 P=P+1 

1070 GOTO 1030 


If you type this program in and then save it using 
ISAVE “ERASE.COM”,AUTO 


you will find that a new command has been added to the DOS. As 
long as “ERASE.COM” is present on a microdisk, typing 


'ERASE filename 


will cause the Atmos to ask you twice if you really do want to delete 
the file called ‘filename’. If you answer ‘yes’ to the questions then the 
file will be deleted. If, however, you answer ‘no’ or anything else the 
delete operation will be aborted. Thus ERASE is a ‘cautious’ version 
of the delete command. The way that the program works is fairly 
obvious once you know that subroutine 190 will return the 
remainder of the ‘command line’ following the word ERASE. In 
other words it returns ‘filename’ in the variable P$. You can use 
subroutine 190@ in your own additions to DOS simply by setting C$ 
equal to the name of your command and then calling the subroutine 
(see line 30). The only problem with subroutine 100 is that it 
returns any BASIC commands as tokens rather than as an ASCII 
string. For example, if you try [ERASE DATA.DAT you will 
discover that the word DATA (which, you will remember, is a 
BASIC command) is not accepted by the command. The reason for 
this is that on input the word DATA is converted to the ‘token’ 
corresponding to ASCII code 145 and all ASCII codes greater than 
127 are ‘filtered out’ by line 105. If you want to allow BASIC 
keywords to be used you will have to modify subroutine 100 to 
detect and convert their tokens back to the appropriate strings. The 
only other feature of the program worthy of comment is line 19. In 
general, you can use any DOS command within a BASIC program 
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and the parameters of the command can always be specified by a 
string variable. That is !DEL P$ will delete the file or files specified 
by the ambiguous filename stored in P$. 


Auto start - !BOOTUP.COM 


A very useful feature of Oric DOS is the ability to run a program 
automatically when the machine is first switched on. This is achieved 
by the use of a special file called “BOOTUP.COM”. If this file is 
present on the system disk, it is loaded and if an auto start address 
has been specified it is run. As in the case of disk resident commands, 
the “BOOTUP.COM” file can contain either machine code or 
BASIC. For example, if you save 


10 PRINT “THE ATMOS IS GREAT” 


using !SAVE “BOOTUP.COM”, AUTO (after renaming or deleting 
any existing “BOOTUP.COM” file) you will be greeted by the 
message “THE ATMOS IS GREAT” every time you start the 
system! In practice the “~BOOTUP.COM” file is usually a complete 
application or a games program or contains a menu that offers the 
user the choice of loading one of a number of programs. 


Handling data files from BASIC 


The commands !STORE and !RECALL are the exact disk 
equivalents of STORE and RECALL as used with cassette tape. 
That is, 


'STORE array name,filename 
will store the array ‘array name’ on disk ina file called ‘filename’ and 
!RECALL array name,filename 


will load the array stored in ‘filename’ into the array called ‘array 
name’. For example, the short program given at the end of Chapter 
Four can be rewritten as: 


10 DIM AI) 

20 FOR I=I TO 1 
30 A(D=I 

4 NEXT I 
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5@ STORE A,“TEST” 
69 !RECALL A,“TEST” 
70 PRINT “DATA LOADED” 


If you compare the two versions of the program you will find that the 
only real difference is that the disk version doesn’t have to issue 
messages for the user to rewind the tape etc! 

Although STORE and RECALL are often useful there are four 
completely new commands for handling data files. The !OPEN 
command is concerned with getting data files ready for processing 
and comes in two different forms: 


!OPEN filename, W 


will create a brand new file called ‘filename’ and get it ready to store 
data whereas 


!OPEN filename,R 


will get an existing file ready to be read. In other words, you can 
OPEN a file for writing or for reading. If you try to OPEN a file for 
writing and it already exists then you will get an error message. 
Similarly, if you try to OPEN a file for reading and it doesn’t exist 
you will get an error message. 

Once a file is OPEN for writing, data can be stored in it using the 
!PUT command. The !PUT command can be used to write the 
contents of numeric variables or string variables to a file, however 
you can only !PUT numeric values in the range 0 to 255. You might 
think that this severely limits the use of disk data files but this is not 
so as it is quite easy to convert a numeric variable to a string using 
STR$ before using !PUT to store it in a file. That is, instead of 


IPUTA 
use 


!PUT STRS(A) 
You can !PUT more than one variable at a time, for example, 
!PUT A$,B,C 


but you must read the data back in the same order in which it was 
written out. 

The command !GET will read data back from a file OPEN for 
reading. It follows the same format and suffers the same restrictions 
as the !PUT command. In particular, if you try to !GET a numeric 
variable it will return a value only in the range 0 to 255. In general, 
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unless you have a specific reason for using numeric variables in this 
range it is always better to use !PUT to store strings of digits and use 
!GET A$:A=VAL(A$) to read and convert them to full range 
numeric values. 

The command 


!CLOSE option 


informs the DOS that you have finished with the files that you have 
OPENed. If ‘option’ is W then the file that has been OPENed for 
writing is stored on disk. If ‘option’ is R then the file that has been 
OPENed for reading is finished with and another file can be 
OPENed if required. The command !CLOSE without an option will 
close both read and write files. 

The best way to illustrate the use of 'OPEN, !GET, !PUT and 
!CLOSE is to give example programs that create a file, read a file 
and extend a file. 


Creating a data file 
The following program will create a numeric data file of random 
numbers called “TEST”: 


10 !OPEN “TEST”, W 
20 FOR I=1 TO 100 
30 AS=STR$(RND(1)) 
4) !PUT A$ 

50 NEXT I 

69 !PUT “” 

7 !CLOSE W 


Line 19 OPENs “TEST” for writing and then lines 20 to 5@ !PUT 
100 random numbers to the file as strings of digits. The only detail 
worth noting is line 69 which !PUTs a null string to the file to mark 
the end of useful data. 


Reading a file 
The following program will read the file “TEST” created by the 
previous program and print its contents on the screen. 


10 !OPEN “TEST”,R 

20 |GET A$ 

30 IF A$="” THEN !CLOSE R:END 
49 A=VAL(AS) 

50 PRINT A 

60 GOTO 20 
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Line 19 OPENs the file for reading and then the loop formed by lines 
20 to 60 reads in each data item and prints it on the screen. Notice 
that each item is read in as a string (line 2), and then converted toa 
number by line 49. Notice also the way line 30 detects the end of the 
file by testing for a null string. 


Extending a file 
The following program will effectively add 100 extra random 
numbers to the file “TEST”. 


1 !OPEN “TEST”,R 

20 !OPEN “TEST2”,W 

30 |GET A$ 

40 IF A$<>“” THEN !PUT A$,:GOTO 36 
5@ FOR I=1 TO 100 

60 PUT STRS(RND(1)) 

70 NEXT | 

80 !CLOSE 


Line 1) OPENs “TEST” for reading and line 20 OPENs a new file, 
“TEST2”, for writing. Then lines 30 to 4 copy all of the data in 
“TEST” to “TEST2”. Finally, lines 5@ to 7@ write the extra 100 
random numbers to “TEST2” and line 89 CLOSEs both files. 
Notice that in this example the maximum number of files that Oric 
DOS can handle are used. The only trouble with this method of 
extending an existing file is that at the end of the program the file 
with the extra data has a different name to the original file. The 
solution the problem is simply to delete the original file and transfer 
its name to the new file. That is, add the following lines to the 
program: 


99 DEL “TEST.DAT” 
199 !REN “TEST2.DAT” TO “TEST.DAT” 


The fact that you can only have two files OPEN at any one time, one 
for reading and one for writing may seem likea serious limitation of 
Oric DOS but in practice it is very rare that more than two files need 
to be OPEN at the same time. 


Controlling disk errors 


Sometimes it is difficult to tell if a disk operation is going to cause an 
error before it is executed. For example, suppose a program uses a 
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temporary data file called “TEMP” to store intermediate results. If 
“TEMP” exists before the program is run then the !OPEN 
command will cause an error but if you try to delete it at the start of 
the program and “TEMP” doesn’t already exist then this will cause 
anerror! The solution is to use the ‘option’ byte at memory location 
1277 (decimal). If this memory location is set to 0, all disk errors will 
cause BASIC to crash. However, if this location is set to 1, disk 
errors will be detected but will not cause BASIC to crash. When a 
disk error is detected its error number is stored in memory location 
1279 and this can be used to discover how successful any disk 
operation has been. For example, the start of the program that uses 
the file “TEMP” could be written: 


10 POKE 1277.1 

20 DEL “TEMP.DAT” 

30 POKE 1277.0 

4 !OPEN “TEMP.DAT”,W 


As another example you can avoid crashing BASIC by reading 
beyond the end of a file by testing for an error while reading it: 


10 PRINT “Name of file ”; 

20 INPUT F$ 

30 !OPEN FSR 

40 POKE 1277.1 

50 REPEAT 

60 |GET A$ 

70 IF A$<>*” THEN PRINT A$; 
80 UNTIL PEEK(1279)<>0 

90 ICLOSE R 


This program will read the contents of a file and list them on the 
screen until it reaches the end of the file. Line 80 simply tests for the 
occurrence of any disk error. 


Conclusion 


The Atmos plus microdisk is a system that is so full of potential that 
it is impossible to do it justice in one chapter. However, from the 
examples given you should be able to see how to use disk storage to 
good effect in your own programs. The auto start feature, disk 
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resident commands and DOS error handling all make it possible not 
only to write effective programs but also to produce programs of a 
professional standard which are a pleasure to use. 


Chapter Twelve 


Using the Atmos 
Printer Plotter 


The printer chosen by Oric Products to accompany the Atmos is the 
MCP-40 printer/plotter. This device will actually work with any 
computer with a centronics interface but its high resolution four- 
colour graphics capability make it a natural companion for the 
Atmos. Most computer hard copy devices are either printers or they 
are plotters but the MCP-40 is both! This dual function is achieved 
by using any one of four differently coloured ball point pens to draw 
lines on standard paper. Both the drawing pen and the paper can 
be moved independently, the pen horizontally and the paper 
vertically, so making it possible to draw almost any shape. 
Fortunately the shapes of the letters of the alphabet are all included 
in the printer’s built-in software and so the MCP-40 can behave as a 
perfectly ordinary (but versatile) printer or as a full-function four- 
colour plotter. Using the MCP-40 for listings and printing text is 
simplicity itself and the printer’s graphics commands are also easy to 
understand. What is not so straightforward is how to write 
programs that can produce graphics either on the TV screen or 
optionally on the printer. After a brief introduction to the 
commands that control the MCP-40 the rest of this chapter is 
concerned with the problem of how to write graphics programs that 
work with both screen and printer. 


Text mode commands 


When the MCP-40 is first switched on it is in text mode and in this 
mode it behaves very much like a standard printer. The Atmos 
BASIC commands LLIST and LPRINT perform the same actions 
as LIST and PRINT except the output is directed to the printer, 
Apart from these two new commands the only other complication is 
the use of some ASCII codes as ‘control codes’. A description of 
these codes can be seen in Table 12.1. 
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Table 12.1 ASCII control codes 


ASCII code Action 


8 Back space — same as text screen 
10 Line feed — same as text screen 
1] Reverse line feed 
17 Select text mode 
13 Carriage return — same as text screen 
18 Select graphics mode 
29 Change to next colour 


The only real difficulty in text mode is keeping track of which colour 
pen is being used. The command LPRINT CHR§(29); will change 
the colour to that produced by the next pen in the holder, not to any 
particular pen. You can also change the size of the characters printed 
in text mode but it involves changing to graphics mode and then 
back again! Normally text mode works with 40 characters per line 
but if you want to change to 80 characters per line then use 


LPRINT CHRS(18);“S@” 
LPRINT CHR§(17) 


In general, if you want to change to L characters per line use 


LPRINT CHR$(18);“Sn” 
LPRINT CHR3(17) 


where n is given by: 


n=(80/L)—1 


Graphics mode commands 


The MCP-40 printer is only different from other printers when it is 
in graphics mode. In this mode any characters that are sent to it are 
interpreted as graphics commands. These graphics commands can 
be seen in Table 12.2. 
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Table 12.2 Graphics commands 


Command Action 


Lp Set line type — p=0 gives solid line p=1 to 15 give different 
degrees of dashed/ dotted line 

A Reset printer (to text mode) 

H Home pen to 0,0 

I Initialise — set origin to current pen position 

Dx,y Draw a line from current pen position to the point x,y 

Jdx,dy Draw a line from the current pen position at x,y to the 
point x+dx,y+dy 

Mx,y Move pen to x,y without drawing a line 

Rdx,dy Move the pen from its current position at x,y to 
x+dx,ytdy 

Cn Change to pen n (n=0 to 3) 

Sn Scale the size of text characters n=0 to 63 

Qn Rotate text characters (n=0 to 3) 

Ptext Print ‘text’ while in graphics mode 

Xp,qr Draw co-ordinate axis. p=0 draws Y axis, p=1 draws X 


axis, q=distance between marks, r=number of marks 


The main difference between the graphics commands used by the 
MCP-40 and the Atmos is that the MCP-40 is essentially a line 
drawing device whereas the Atmos is a point drawing device. That is, 
the MCP-40 produces graphics by moving a ball point pen over 
paper and this naturally produces lines rather than single dots but 
the Atmos produces lines by drawing a sequence of dots. It is true 
that you can produce dots on the MCP-40 by drawing very short 
lines but this is not the most efficient way of using the printer and 
there is no specific command for plotting a single point. The only 
other important point to bear in mind is that while all of the graphics 
commands will accept co-ordinates in the range —999 to +999 the 
actual dimensions of the plotting area are restricted. In the x 
direction the restriction is obvious in that the paper is only 480 units 
wide. Theoretically the y direction is unlimited and this is generally 
true for negative values of y because this moves the pen down the 
paper roll. However positive values of y can very easily move the pen 
off the top of the paper and so ruin the output. The solution to this 
problem is to always make sure that there is enough paper above the 
pen by first executing a ‘M0,-y’ command, where y is the 
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maximum, positive y value that you are going to use, and then 
moving the origin to the new pen position using ‘I’. 


Combined screen and printer graphics 


It is not difficult to write special programs that produce graphics on 
the MCP-40 printer. In some cases it may even be easier to produce 
graphics on the printer than on the screen. For example, the text 
scaling ‘S’ command and the text orientation ‘Q’ command make the 
labelling of graphs etc. particularly easy when compared to the 
Atmos BASIC command CHAR. However there are considerable 
advantages in writing programs that can produce roughly the same 
graphics output on the screen and on the printer. Many other 
computer systems provide this facility by the use of a ‘screen dump’ 
program that will copy a graphics screen to a printer point by point. 
This produces a low quality but often acceptable ‘hard copy’ of 
graphics output. However, this is not a practical method to use with 
the MCP-40 because it is a line drawing device. A more appropriate 
method is to write graphics programs using both screen commands 
and printer commands. 

If you examine the printer graphics commands (Table 12.2) you 
should be able to identify a correspondence between some of them 
and the high resolution graphics commands of Atmos BASIC. That 
is: 


Rdx,dy is the same as CURMOV dx,dy,@ 
Mx,y is the same as CURSET x,y,@ 

and 

PCHR&(n) is the same as CHAR 9,n,1 
Jdx,dy is the same as DRAW dx,dy, 1 


The only problem is that the MCP-40 uses a different co-ordinate 
system from the Atmos. The Atmos uses a co-ordinate system that 
places the point 0,0 in the top left hand corner and has a maximum 
range of 0 to 239 for x and 0 to 199 for y. The MCP-40 initially also 
places the point 0,0 at the left hand side of the paper but its 
maximum co-ordinate range is 0 to 390 for x and —999 to +999 for y. 
An additional difference is that, on the Atmos, increasing y moves 
down the screen but on the MCP-40 it moves the penup the paper. At 
first sight it looks as though there is little chance of reconciling these 
two different co-ordinate systems but in fact it is very easy. The 
MCP-40’s x co-ordinate range is simply twice that of the Atmos’s 
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high resolution screen and if we use XP=2*X and YP=—2*Y to 
convert high resolution co-ordinates X,Y to printer co-ordinates 
XP,YP anything drawn on the screen will look the same drawn on 
the printer. For example, consider the ‘string pattern’ program given 
in Chapter Six. This uses nothing but CURSET and DRAW 
commands and so it is easy to add printer graphics commands that 
will produce the pattern on the printer: 


10 HIRES 

15 LPRINT CHR$(18) 

16 DEF FNX(X)=2*X 

17 DEF FNY(Y)=—2*Y 

20 FOR I=I TO 199 STEP 4 

30 CURSET 91,1 

35 LPRINT “M@,”;STRS(FNY(1)) 

4 DRAW 239-1,-1,1 

45 LPRINT “J”;STR$(FNX(239-1));*,”:STRS(FNY(-1)) 
50 CURSET 1,0, 1 

55 LPRINT “M”;STRS(FNX(1));,0” 

60 DRAW 239-11, | 

65 LPRINT “J”;STRS(FNX(239-1));",”;STRS(FNY(1)) 
70 CURSET 0,199-I, | 

75 LPRINT “M@,”;STRS(FNY(199-1)) 

80 DRAW 239-11, | 

85 LPRINT “J”;:STRS(FNX(239-I));*,”;STRS(FNY(I)) 
99 CURSET 1,199, | 

95 LPRINT “M”:STRS$(FNX(1));",”:STRS(EN Y(199)) 
100 DRAW 239-1,-1,1 

105 LPRINT “J”;STR$(FNX(239-I)):*,”;STRS(FNY(-1)) 
110 NEXT I 


Although this version of the program looks very complicated it is a 
very simple modification to the original. The two functions FNX 
and FNY, defined in lines 16 and 17, convert high resolution co- 
ordinates to printer co-ordinates. Using these two functions it is easy 
to add to the program printer commands that are the equivalent of 
the high resolution commands. Each line in the original program of 
the form, 


CURSET x,y, 1 


is equivalent to the printer command, 


LPRINT “M”;STR$(FNX(x));“,"3STRS(FN Y(y)) 
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and each line of the form, 
DRAW x,y, | 
is equivalent to the printer command, 
LPRINT “J”;STRS(FNX(x));“,"35STRS(FN Y(y)) 


If you want to make the printer output optional then all you have to 
do is use IF statements to skip the printer commands if they are not 
required. 

This technique of changing CURSET and DRAW commands 
into their equivalent printer commands works for a great many 
programs. However, a common high resolution method is to plot 
points using CURSET that are close enough together to give the 
impression of a continuous line. This was the method used to 
produce the Lissajou figure in Chapter Eight. From the earlier 
discussion it looks as though this type of program is difficult to 
convert to produce its output on the printer. In general this is true 
but if the points that are plotted by the program are in sequence, (i.e. 
points that lie next to each other are plotted one after the other), 
then it is fairly easy. For if the points are plotted in sequence we can 
use the printer command ‘Dx,y’ to draw a line between them. Using 
this idea the Lissajou figure program becomes: 


5 LPRINT CHR§(18) 
6 DEF FNX(X)=2*X 
7 DEF FNY(Y)=—2*Y 
1) HIRES 
20 T=0 
30 T=T+9.1 
4) X=50*(1+SIN(1.1*T)) 
50 Y=50*(1+COS(T)) 
69 CURSET X+50,Y+59, 1 
65 LPRINT “D”;STR$(FNX(X+59));“,";STRS$(FN Y(Y+59)) 
70 GOTO 30 
If you run this program you will discover that it works apart froma 
diagonal line drawn from the origin to the first plotted point. To 


remove this line the pen should be moved to the first plotted point, 
that is: 


64 IF T=.1 THEN LPRINT “M”;STRS(FNX(X+50));“,”; 
STRS(FNY(Y+50)) 


In general, if you are changing a screen point plotting program to 
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one that draws lines on the printer it is necessary to move the pen to 
the first point without drawing a line. 


Conclusion 


The MCP-40 colour printer is capable of producing graphics at a 
higher resolution than the Atmos but apart from very special 
applications it is better to attempt to use a restricted resolution so 
that the graphics can be displayed both on the screen and the printer. 
Ideally a program should allow the user to view on the screen what is 
going to be produced and then, if satisfied, take a ‘hard copy’ onthe 
printer. If you feel that this is too much of a restriction then by all 
means write your programs to take full advantage of the printer’s 
features. Although this will obviously restrict your programs to the 
MCP-40 printer, it is worth recalling that this is not an expensive 
extra and it is one that is bound to increase the versatility of your 
Atmos. 


Appendix 
Atmos and Oric-! 
Compatibility 


The Atmos is very similar to its predecessor the Oric-1. In particular 
Atmos BASIC is a development of Oric BASIC. Although many 
Oric-! owners have taken the opportunity of changing their BASIC 
ROM to run Atmos BASIC it is still useful to know how the two 
versions of BASIC differ. If you are writing programs on the 
Atmos that you hope will run on the older Oric-1 then you will need 
to take these differences into account. Perhaps more importantly 
you will need to know what the major differences are when trying to 
convert existing Oric-| software for the Atmos. 

The only new commands to be added to Atmos BASIC are EDIT, 
which can be ignored from the point of view of running programs as 
it is a direct command, and the cassette datacommands STORE and 
RECALL. STORE and RECALLarenot available on the Oric-1 and 
should be avoided if you want your programs to run on its older 
version of BASIC. Perhaps the most significant addition to Atmos 
BASIC is the @x,y function that can be used within the PRINT 
statement to position the text cursor. The Oric-1| had no way of 
moving the text cursor without POK Eing the memory locations that 
held the cursor’s current position. If you want to write programs that 
work with Oric BASIC then use the PLOT command rather than 
@x,y unless you have to position the text cursor ready for INPUT. 
In this case use, 


DOKE #12,48039+ROW*40+COL 
POKE #268,ROW+ 1 


which will move the text cursor to COL,ROW on both the Oric-1 
and the Atmos. (But see the later comment on numbering text 
columns.) Similarly if you find any DOKEs to location #12 or 
POKEs to location #268 in an Oric BASIC program you can either 
leave them or convert them to full Atmos BASIC by using the @x,y 
function. 
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There are other problems with print positioning in converting 
from the Oric to the Atmos or vice versa. In Oric BASIC the comma 
used as a print separator doesn’t move the text cursor to the next print 
zone, it simply leaves three spaces. That is, the comma performs the 
same action as SPC(3). The Oric TAB function is also equivalent to 
its SPC function (but see the note on the bug in the following section 
on TAB). 

Perhaps the most serious incompatibility between the Oric-1 and 
the Atmos is their different methods of numbering the text columns. 
The Oric-1 numbers the first printing position as column | and the 
two protected attribute columns are numbered 0 and —1 (although 
you can’t refer to a horizontal position of —1 in any commands). This 
means that the valid range of horizontal co-ordinates on the Oric’s 
text screen is 0 to 38. The Atmos attempts to rationalise this 
situation by numbering the first protected column as 0, making the 
second protected column number | and the first printing position 
column number 2. Thus the range of horizontal co-ordinates on the 
Atmos is 0 to 39. This causes problems when transferring programs 
from the Atmos to the Oric in that a horizontal co-ordinate of 39, 
which is valid on the Atmos, will cause the Oric to crash. Going from 
the Oric to the Atmos causes a problem because statements like 
PLOT 1,y,“HELLO” which place the ‘H’ at the first printing 
position now place it in the second protected column and hence 
change the foreground attribute! The solution in both cases is to 
change the x co-ordinate in any PLOT command by adding | to it if 
going from Oric to Atmos and subtracting | from it if going from 
Atmos to Oric. That is, when taking a program from Oric BASIC to 
Atmos BASIC change all PLOT x,y‘string’ commands to PLOT 
x+l,y,‘string’ commands. When taking a program from Atmos 
BASIC to Oric BASIC change all PLOT x,y,‘string’ commands to 
PLOT x~—l,y,‘string’ commands. 

Another problem with transporting programs between the two 
versions of BASIC is that there were a number of bugs in the original 
Oric BASIC ROM. None of them were serious and it was easy to 
find ways around them. A list of the known Oric BASIC bugs is 
given in the following sections. 


TAB 


The most obvious bug was the fact that the TAB function didn’t 
work properly. The best way to avoid the TAB bug is to avoid the 
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use of the TAB function altogether. Instead use SPC(X), which in 
Oric BASIC has exactly the same action as TAB(X). 


STR$ 


The STR$ function added a control character to the front of the 
string that is returned as its result. However, it only misbehaved 
when the number X in STR§$(X) was positive. The most obvious fix 
is to remove the first character from the front of the string using 
A$=RIGHTS$(A$, LEN(A$)~— 1) but this doesn’t work if the number 
in the STR$ function is negative and gives a wrong result if used with 
Atmos BASIC. The best solution is to test for control codes at the 
front of the string and only remove them if they are present! That is, 
use: 


A$=STRS(X) 
IF ASC(A$)<32 THEN A$=RIGHT$(A$, LEN(A$)— 1) 


PRINTing ESC in column one 


Normally printing the ESC character, CHR§(27), doesn’t store the 
ESC character at the current printing position but causes both the 
Oric and the Atmos to interpret the next character as an attribute 
code which is stored at the current printing position. On many Orics 
this only works once the printing position has gone beyond the first 
printing position. If you PRINT CHR$(27) and the current printing 
position is column one then attribute code 27 is incorrectly stored at 
column one with results that were never intended! The fix is quite 
simple — don’t PRINT attribute codes in column | (which is 
column 2 on the Atmos!) on the Oric, use the PLOT command 
instead. 


FILL command 


The FILL command should have moved the graphics cursor to the 
last dot inthe last character cell that it affected. However, in practice 
it didn’t update the graphics cursor at all. The fix is never to assume 
the position of the graphics cursor following a FILL command but 
use CURSET to position it. 
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POKE 


The POKE command would not accept hex values after the comma. 
The fix is simply to convert all hex values to decimal by storing them 
in a variable first. That is, rather than POKE 223,#33 use: 


TEM P=#33 
POKE 223, TEMP 


Spurious printer characters 


The Oric-1 had a habit of sending squiggles, that is CHR$(7F), at 
random to the printer. The fix is to turn off interrupts using 


CALL #6CA 
before printing using LLIST and then restore interrupts using 
CALL 0804 


afterwards. 


String or array corruption 


This is caused by incorrect setting of HLIMEM on power up. The fix 
is to set HIMEM explicitly using 


HIMEM #97FF 


Program loading 


The Oric-! would sometimes load a program successfully but with 
the end of the program replaced by lines of U’s. This was caused by a 
line linkage error which the Oric’s tape handling didn’t seem to 
detect. Sometimes entering a dummy line suchas | REM at the start 
of the program and then deleting it would force the BASIC ROM to 
relink the program. In general the Atmos will load Oric-I tapes 
successfully even if it does issue an error message. The reverse is also 
the case but the Oric-1 tends to detect errors less often than the 
Atmos. Always save important programs and data twice at the 
slower data rate if you want to be reasonably certain of being able to 
recover them. 
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MASTER PROGRAMMING WITH YOUR ATMOS! 


The Atmos is an ideal machine to allow all the family to 
join in the computer revolution. Its sound and graphics 
capabilities make it a source of hours of fun and 
entertainment and its range of peripherals means it can 
become a useful tool for home or office management and 
for many educational applications. 


This book is intended to help every Atmos owner master 
this exciting new computer. It teaches BASIC with a clear, 
logical approach that shows how commands are used 
rather than just stating what they do. Plenty of complete 
programs and short programming examples are included 
throughout to take the reader quickly from first steps to a 
high level of competence. Early chapters cover the 
principles of BASIC, ways of manipulating data (both 
numbers and text), and using functions and subroutines. 
A chapter is devoted to creating music and sound effects 
with the Atmos and two are devoted to graphics. Chapters 
are included on using the printer and the disk system, the 
inner workings of the Atmos and better programming 


style. 


Even if you start out as a complete beginner, by the end of 
the book you'll be well on your way to proficient 
programming. 


The Authors 

Mike James is the author of The BBC Micro: An Expert 
Guide, and both he and S. M. Gee have written several 
other very successful books on programming. They are both 
regular contributors to the monthly computing magazines. 


Also from Granada 


THE ATMOS BOOK OF GAMES 


Mike James, S. M. Gee and Kay Ewbank 
0.246 125349 


Cover photo: Ken Cooper/The Image Bank 


GR. in Great Britain 0246 on £6.95 net 


wuesanoce THE ATMOS PROGRAMMER GRANADA 


